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96 1.0 GENERAL PROGRAM INFORMATION 

97 

98 

99 1.1 PROGRAM PURPOSE 

100 

101 

102 "CQKDA" IS A DIAGNOSTIC PROGRAM DESIGNED TO DETECT* REPORT, 

103 AMD IDENTIFY LOGIC FAULTS IN THE KOll-K CENTRAL PROCESSING UNIT 

104 OF THE PDP11/6X SYSTEM. IT CONSISTS OF 504(10) INDIVIDUAL TESTS 

105 CAREFULLY DESIGNED AND SEQUENCED TO DETECT AND ATTEMPT TO 

106 IDENTIFY LOGIC FAULTS AT A MINIMUM HARD WARE/ SOFT WARE LEVEL. 

107 THESE TESTS ARE PARTITIONED INTO FOUR MAJOR SECTIONS AS 

108 DESCRIBED BELOW: 
109 

110 A. BASIC CPU TESTS (BCPT) 

111 

112 

113 THIS IS THE BASIC CPU TEST TO VERIFY THE "HARDCORE". ANY FAULT 

114 DETECTED IN THIS SECTION CAUSES THE PROGRAM TO HALT WITH THE 

115 PC+2 OF THE HALT INSTRUCTION DISPLAYED ON THE CONSOLE. 
116 

117 3. BASIC INSTRUCTION TESTS (BIT) 

118 

120 THIS SECTION CONSISTS OF A LOGICALLY SEQUENCED SET OF BASIC 

121 INSTRUCTION TESTS DESIGNED TO VERIFY THE INTEGRITY OF THOSE 

122 INSTRUCTIONS AND LOGIC OPERATIONS USED BY THE UTILITY ROUTINES 

123 THAT PROVIDE ERROR LOGGING AND SCOPE LOOPING FACILITIES FOR THE 

124 SUBSEQUENT TWO MAJOR SECTIONS. NO UTILITY IS CALLED UNTIL ITS 

125 INSTRUCTION COMPLEMENT HAS BEEN VERIFIED. THIS SCHEME ACCOMP- 

126 LISHES TWO IMPORTANT MAINTENANCE OBJECTIVES: 1)IT MINIMIZES 

127 THE POSSIBILITY OF THE ERROR REPORTING ROUTINES CONVEYING 

128 AMBIGUOUS ERROR INFORMATION TO THE USER. AND 2)IT MAXIMIZES 

129 THE POSSIBILITY THAT THE ERROR WILL BE DETECTED BY A ROUTINE 

130 DESIGNED TO IDENTIFY FAILING OPERATIONS RATHER THAN HAVE THE 

131 ERROR MANIFEST ITSELF IN A MORE COMPLEX UTILITY ROUTINE 

132 THAT IS NOT STRUCTURED TO DIAGNOSE FAULTS. 
133 

134 ANY FAULT DETECTED IN THIS SECTION CAUSES THE PROGRAM TO 

135 HALT WITH THE CONSOLE ADDRESS INDICATING THE PC+2 OF THE HALT 

136 INSTRUCTION IN THE FAILING TEST. ADDITIONAL FAULT IDENTIFICATION 

137 INFORMATION IS AVAILABLE IN THE PROCESSOR'S GENERAL REGISTERS* 

138 PSW, STACK* AND PROGRAM ANNOTATION FOR THE FAILING TEST. A LOCK 

139 ON HARD ERROR FEATURE IS EMPLOYED TO PREVENT THE PROGRAM FROM 

140 CONTINUING ON ONCE A SOLID ERROR IS DETECTED. DEPRESSING CONTINUE 

141 AFTER THE ERROR HALT CAUSES A RETRY CF THE FAILING TEST. 
142 

143 C. COMPREHENSIVE INSTRUCTION TESTS (CIT) 

144 

145 

146 THIS SECTION* COMPRISED OF THE BULK OF THE TESTS, CONSISTS 

147 OF A LOGICALLY SEQUENCED AND PARTITIONED SET OF INSTRUCTION 

148 TESTS DESIGNED TO TEST AND VERIFY ALL THE BASIC INSTRUCTIONS 

149 OF THE KD11-K PROCESSOR. THIS EXCLUDES TESTING THOSE LOGIC 

150 FUNCTIONS THAT SUPPORT THE CONSOLE FUNCTIONS (LOAD ADDRESS* 

151 DEPOSIT, ETC.). EACH TEST IN THIS SECTION CALLS A "SCOPE LOOP" 
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152 UTILITY THAT FACILITATES USER CONTROL OF TEST SELECTION AND 

153 EXECUTION VIA THE CONSOLE SWITCH REGISTER. 
154 

155 UPON DETECTION OF A LOGIC FAULT, EACH TEST IN THIS SECTION 

156 CALLS AN "ERROR SERVICE" ROUTINE THAT LOGS THE ERROR AND REP- 

157 ORTS IT AS HARD COPY ON THE CONSOLE TERMINAL DEVICE. THE ERROR 
159 SERVICE ROUTINE ALSO FACILITATES USER CONTROL OF THE PROGRAM 

159 SEQUENCE VIA CONSOLE SWITCH REGISTER OPTIONS. AFTER REPORTING 

160 THE ERROR THE PROGRAM CONTINUES ON IN ITS NORMAL SEQUENCE UN- 

161 LESS MODIFIED BY THE USER ACTIVATING THE "LOCK ON HARD ERROR" 

162 SWITCH OPTION. 
163 

164 D. COMBINED INSTRUCTION EXERCISER (IEX) 

165 

166 

167 THIS SECTION CONSISTS OF A MORE COMPLEX SET OF INSTRUCTION 

168 TESTS DESIGNED TO TEST THE INSTRUCTIONS WHEN USED IN VARIOUS 

169 COMBINATIONS MANIPULATING VARIABLE DATA PATTERNS. IT ALSO 

170 TESTS THE MED AND ERROR LOGGING FEATURES OF THE CPU. LIKE THE 

171 PREVIOUS SECTION* IT CALLS THE "ERROR SERVICE" AND "SCOPE LOOP" 

172 UTILITIES TO REPORT ERRORS AND ALLOW USER CONTROL OF TEST EXEC- 

173 UTION. 
174 

175 1.2 SYSTEM REQUIREMENTS 

176 

177 

178 A. HARDWARE REQUIREMENTS 
179 

180 1. PDP11/6X CPU WITH OPERATOR'S CONSOLE 

181 2. 16K OF CORE STORAGE - MF11/U OR EQUIVALENT 

182 3. DL11-W ASYNCHRONOUS LINE INTERFACE WITH LINE CLOCK 
183 

184 8. SOFTWARE REQUIREMENTS 
185 

186 1. PDP11 ABSOLUTE LOADER PROGRAM FOR PAPER TAPE SYSTEMS 

187 2. XXDP MONITOR FOR DECT APE/ MAGTAPE, CASSETTE, OR DISK SYSTEMS. 
188 

189 1.3 RELATED DOCUMENTS AND STANDARDS 

190 

191 

192 "CQKDA" USES THE STANDARD APT SOFTWARE INTERFACES FOUND IN 

193 THE MACY11 SYSMAC PACKAGES. 
194 

195 1.4 DIAGNOSTIC HIERARCHY REQUIREMENTS 

196 

197 

198 "CQKDA" WILL NORMALLY BE THE FIRST DIAGNOSTIC TO BE RUN AS 

199 PART OF PDP 11/6X CPU CHECKOUT. 

200 

201 1.5 FAILURE ASSUMPTIONS 

202 

203 

204 "CQKDA" ASSUMES THAT THE STORAGE MEDIUM USED TO STORE THE 

205 PROGRAM IS INTACT AND THAT IT CAN BE LOADED INTO CORE. 
206 

207 2.0 OPERATING INSTRUCTIONS 
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208 

209 

210 2.1 LOADING AMD STARTING PROCEDURES 



21 1 
212 

213 A. LOADING PROCEDURES 

214 

215 1) STANDARD PDP11 ABSOLUTE LOADER PROCEDURES FOR PAPER TAPE. 

216 

217 2) STANDARD XXDP MONITOR LOADING PROCEDURES . 

218 

219 3) STANDARD APT OR ACT LOADING 

220 

221 B. MANUAL STARTING PROCEDURES 

222 

223 1) LOAD SWITCH REG WITH 000000 (NO SWITCH OPTIONS) 

224 2) SET DISPLAY TO 000200 

225 3) DEPRESS LOAD ADDRESS 

226 4) PRESS CNTRL AND START BUTTONS SIMULTANEOUSLY 
227 

228 

229 2.2 SPECIAL ENVIRONMENTS 

230 

231 

232 16K PDP11/6X SERIES SYSTEMS 

233 

234 FOR 16K SYSTEMS USING THE "XXDP" PACKAGE YOU MILL BE UNABLE 

235 TO USE THE "UPDATE" PROGRAMS TO LOAD, SAVE, UPDATE ETC. 

236 SINCE THE SIZE OF "CQKDA" WILL NOT PERMIT SIMULTANEOUS 

237 RESIDENCY OF THE UPDATE PROGRAMS. SUFFICIENT FREE CORE IS 

238 AVAILABLE FOR THE "XXDP" MONITOR SO THAT "CQKDA" CAN BE 

239 LOADED BY THE MONITOR. 
240 

241 2.3 PROGRAM OPTIONS 

242 

243 

244 A. SWITCH REGISTER OPTIONS 

245 

246 THE FOLLOWING CONSOLE SWITCH REGISTER OPTIONS ARE ACTIVE 

247 UPON ENTERING THE COMPREHENSIVE INSTRUCTION TESTS (CIT) 

248 SECTION: (SWITCH OPTION IS ACTIVE WHEN SW IS SET TO A 
249 

250 SW15 HALT ON ERROR. IF ERROR PRINTING IS ENABLED THE HALT 

251 OCCURS AFTER THE PRINTOUT. DEPRESSING "CONTINUE" CAUSES 

252 THE PROGRAM TO PROCEED ON IN NORMAL SEQUENCE FROM THE 

253 POINT OF ERROR. 
254 

255 SW14 CONTINUOUSLY LOOP ON THE CURRENT TEST 

256 

257 SW13 INHIBIT NORMAL ERROR PRINTOUTS - THIS DOES NOT INCLUDE 

258 POWER FAIL, BUS ERROR, OR RSVD INSTR TRAPS. 

259 

260 SW12 INHIBIT ALL PRINTOUTS NOT COVERED UNDER SW13. THIS 

261 INCLUDES I.D., BUS ERROR, AND RSVD INSTR TRAPS. 

262 NOTE THAT IT IS NOT POSSIBLE TO INHIBIT END PASS OR 

263 PQwER FAIL PRINTOUTS. 
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264 

265 SW11 INHIBIT SUB-TEST ITERATIONS. TEST ITERATIONS ARE 

266 AUTOMATICALLY INHIBITED ON THE FIRST PASS. 
267 

268 SW10 SEARCH FOR AND CONTINUOUSLY LOOP ON THE TEST NUMBER 

269 SELECTED BY THE CONTENTS OF SW<08:00>. ONLY USE THIS 

270 OPTION FOP TESTS TST176 THRU TST767 SINCE THE "SCOPE" 

271 UTILITY IS NOT ACTIVE U?JTIL TEST TST176. LOOPING ON 

272 TST176 WILL CAUSE A LOOP ON THE ENTIRE "BIT" SECTION 

273 (TESTS 0-176). 
274 

275 SW09 LOCK ON HARD ERROR 
276 

277 SW<8:0> USED TO SELECT A PARTICULAR TEST FOR LOOPING IF SW10=1. 

278 TEST NUMBER MUST BE BETWEEN 176 AND 767. 
279 

280 B. MEMORY LOCATIONS 
2P1 

282 4. BPTLOC: THERE IS A LOCATION TAGGED "BPTLOC" THAT PROVIDES THE 

283 USER THE MECHANISM FOR SETTING SIXTEEN "BREAKPOINT 

284 HALTS" THROUGHOUT THE PROGRAM. THIS ENABLES RAPIDLY 

285 "HOMING IN" ON THE FAILING TEST IN THOSE CASES WHERE 

286 THE FAULT CAUSES A RUNAWAY OR HUNG PROGRAM. REFER TO 

287 PARA. 4.2 FOR A DETAILED DESCRIPTION OF THE USE OF 

288 THIS FEATURE. 
289 

290 2.4 EXECUTION TIMES 

291 

292 

293 ONE COMPLETE ERROR FREE PASS OF "CQKDA" WITH NO TEST ITERATIONS 

294 SHOULD TAKE LESS THAN 7 SECONDS. A SUCCESSFUL PASS WILL BE IN- 

295 DICATED BY THE FOLLOWING PRINTOUT ON THE CONSOLE DEVICE: 

296 

297 END PASS if 000001 ERROR COUNT = 000000 

298 

299 THIS ERROR COUNT IS NOT CLEARED AT THE BEGINNING OF A NEW PASS. 

300 WITH ITERATIONS ENABLED A COMPLETE ERROR FREE PASS SHOULD TAKE 

301 LESS THAN 2.5 MINUTES. 
302 

303 3.0 ERROR INFORMATION 

304 

305 

306 3.1 ERROR REPORTING PROCEDURES 



3C7 
308 

309 ft. ERROR MESSAGE FORMATS 

310 

311 THERE ARE SEVERAL DIFFERENT ERROR FORMATS. EACH IS DESCRIBED BELOW, 

312 

313 1.) ERROR 1 IS OF THE FORM 

314 

315 S/8 DST WAS DST DEST (IR> TEST (PC) (SP) (PSW) 

316 XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 
317 

318 WHERE: 
319 
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320 3/8 DST FOR SINGLE AND DOUBLE OPERAND INSTRUCTIONS THIS 

321 COLUMN CONTAINS WHAT THE RESULT (DEST. OPERAND) 

322 SHOULD HAVE BEEN (S/B). 
323 

324 WAS DST FOR SINGLE AND DOUBLE OPERAND INSTRUCTIONS THIS 

325 COLUMN CONTAINS WHAT THE RESULT (DEST. OPERAND) 

326 ACTUALLY WAS AFTER THE TEST. 

32P DEST FOR SINGLE AND DOUBLE OPERAND INSTRUCTIONS THIS 

329 COLUMN CONTAINS THE DESTINATION ADDRESS. 

330 

331 (IR) THIS IS A COPY OF THE TEST INSTRUCTION. 

332 THIS WILL BE THE FIRST WORD IN THE CASE OF TWO 

333 OP THREE WORD INSTRUCTIONS. 
334 

335 TEST INDICATES THE TEST NO. (IN OCTAL) THAT FAILED 
336 

337 (PC) INDICATES THE CONTENTS OF THE PROGRAM COUNTER AT THE 

338 TIME OF THE ERROR CALL. THIS IS AN ADDRESS NORMALLY 

339 USED TO LOCATE THE ERROR CALL STATEMENT IN 

340 THE FAILING TEST. 
341 

342 (SP) INDICATES THE CONTENTS OF THE STACK POINTER (R6) AT 

343 THE TIME OF THE ERROR. NOTE THAT THE ERROR CALL 

344 WILL PUSH THE STACK TWICE. IN SP TESTS WHERE THE 

345 SP MUST BE RESTORED PRIOR TO CALLING THE ERROR ROUTINE/ 

346 THEN THE ORIGINAL (UNRESTORED) SP IS TYPED* WITHOUT 

347 ADDITIONAL PUSHES FROM THE ERROR CALL. 
348 

349 (PSW) INDICATES THE CONTENTS OF THE PROCESSOR STATUS WORD 

350 AT THE TIME OF THE ERROR CALL 
351 

352 XXXXXX IS AN OCTAL NUMBER. 

353 

354 2.) ERROR 2 AND ERROR 4 ARE THE SAME AS FOR ERROR 1 ABOVE 

355 EXCEPT THAT IN THIS CASE THE DESTINATION IS A GENERAL 

356 REGISTER (WHICH DOES NOT HAVE A UNIBUS ADDRESS). THE OCTAL 

357 NUMBER TYPED OUT IN THE "DEST" COLUMN SHOULD BE IGNORED. 

358 THE TYPOUT WOULD LOOK AS FOLLOWS: 
359 

360 S/B DST WAS DST DEST (IR) TEST (PC) (SP) (PSW) 

361 IS R3 

362 XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 
363 

364 3.) ERROR 5, ERROR 6, AND ERROR 7 ARE IDENTICAL TO ERROR 1 

365 EXCEPT THAT ONLY THE LAST 5,6, OP 7 COLUMNS (RESPECTIVELY) 

366 ARE PRINTED. 
367 

368 4.) ERROR 3 IS USED IN CASES WHERE THE STACK POINTER IS 

369 SPECIFICALLY IN ERROR. THE COLUMNS HAVE THE SAME MEANING AS 

370 DESCRIBED FOR ERROR 1 EXCEPT: 
371 

372 S/B SP IS WHAT THE STACK POINTER SHOULD HAVE BEEN (S/B) 
373 

374 WAS SP IS WHAT THE STACK POINTER ACTUALLY WAS 
375 
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376 5.) OTHER ERRORS TYPE OUT THEIR SPECIFIC ERROR MESSAGE/ FOLLOWED 

377 3Y SELF EXPLANATORY DATA HEADERS, DEFENDING ON THE ERROR. 

378 AN EXAMPLE FOLLOWS: 
379 

380 BAD DATA READ BY A MED 

381 PC ME DC DDK EXPECTD RECEIVD 

382 XXXXXX XXXXXX XXXXXX XXXXXX 

383 
384 
385 



6.) WHEN THE SCOPE ROUTINE BECOMES ACTIVE* IT CHECKS THAT 
THE TEST M UMBER (IN RO) IS EXACTLY ONE GREATER THAN THE 



386 TEST NUMBER ON THE PREVIOUS SCOPE CALL. IF A MACHINE 

387 ERROR CAUSES TESTS TO BE SKIPPED, OR THE PROGRAM TO JUMP 

388 BACKWARDS, ERROR 11 WILL REPORT THIS AS FOLLOWS: 
3P9 

390 TESTS SKIPPED 

391 PC EXPCTD ACTUAL (TEST #'S) 

392 XXXXXX XXXXXX XXXXXX 

393 

394 SXPCTD THIS IS THE TEST NUMBER THE SCOPE WAS EXPECTING TO BE 

395 CALLED FROM. 
396 

397 ACTUAL THIS IS THE TEST NUMBER THAT IT FOUND IN PO 

398 

399 7.) RESERVED INSTRUCTION TRAP ERROR MESSAGE 

400 

401 

402 ANY RESERVED INSTRUCTION TRAP DETECTED AFTER THE 

403 BASIC TESTS RESULTS IN THE FOLLOWING PRINTOUT: 
404 

405 TRAPPED TO 10 PC = XXXXXX 

406 

407 WHERE : XXXXXX IS THE VALUE OF THE PROGRAM COUNTER 

408 PUSHED ON THE STACK WHEN THE TRAP WAS SPRUNG. 
409 

410 AFTER REPORTING THE ERROR, THE PROGRAM IS RESTARTED 

411 FROM THE BEGINNING. 
412 

413 IF A RSVD INSTRUCTION TRAP OCCURS WHILE IN THE PROCESS 

414 OF TRYING TO SERVICE A PREVIOUS RSVD INSTRUCTION TRAP 

415 OR A BUS ERROR TRAP THE PROGRAM HALTS. A DESCRIPTION 

416 OF THIS HALT IS CONTAINED IN PARA. 3.2.3 BELOW. 
417 

418 IF A RSVD INSTRUCTION TRAP OCCURS PRIOR TO COMPLETION 

419 OF THE BASIC INSTRUCTION TEST SECTION THE PROGRAM WILL 

420 HALT VIA A TRAPCATCHER IN THE VECTOR. A DESCRIPTION OF 

421 THIS HALT IS DESCRIBED IN PARA. 3.2.2 BELOW. 

422 
423 

424 4. BUS ERROR TRAP ERROR MESSAGE 

425 

426 

427 ANY UNEXPECTED BUS ERROR TRAPS (BUS TIMEOUT, ODD 

428 ADDRESS ERROR, ILLEGAL INSTRUCTION, OR STACK OVERFLOW) 

429 RESULTS IN THE FOLLOWING PRINTOUT: 
430 

431 TRAPPED TO 4 PC = XXXXXX 
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432 

433 WHERE: XXXXXX IS THE VALUE OF THE PC PUSHED ONTO 

434 THE STACK WHEN THE TRAP WAS SPRUNG. 
435 

436 AFTER REPORTING THE ERROR THE PROGRAM IS RESTARTED 

437 FROM THE BEGINNING. 
438 

439 IF A PUS ERROR TRAP OCCURS WHILE A PREVIOUS BUS ERROR 

440 OH RSVD INSTRUCTION IS STILL PENDING THE PROGRAM WILL 

441 HALT. A DESCRIPTION OF THE HALT INTERPRETATION IS GIVEN 

442 IN PARA. 3.2.3 BELOW. 
443 

444 IF A BUS ERROR OCCURS PRIOR TO THE COMPLETION OF THE 

445 BASIC INSTRUCTION TESTS, THE PROGRAM WILL HALT VIA A 

446 TRAPCATCHER IN THE VECTOR. A DESCRIPTION OF THIS HALT 

447 IS INCLUDED IN PARA. 3.2.2 BELOW. 
448 

449 5. POWER FAIL 

450 

451 

452 IF A POWER FAIL CONDITION IS DETECTED, THE FOLLOWING 

453 MESSAGE IS PRINTED: 
454 

455 POWER 
456 

457 AFTER PRINTING AN ATTEMPT IS MADE TO RESTART THE PROGRAM AT 

458 THE BEGINNING. 

459 

460 3.2 ERROR HALTS 

461 

462 

463 1. BASIC INSTRUCTION TESTS (BIT) 

464 

465 

466 ANY ERROR DETECTED IN THE BASIC TESTS CAUSES THE 

467 PROGRAM TO HALT WITH THE PC+2 OF THE LOCATION CONTAINING 

468 THE HALT INSTRUCTION DISPLAYED. 
469 

470 EXAMINING THE CONTENTS OF THE CPU'S GENERAL REGISTERS/ 

471 THE PSW, AND THE STACK WILL PROVIDE ADDITIONAL FAULT 

472 IDENTIFICATION INFORMATION. 
473 

474 DEPRESSING "CONTINUE" AFTER THE HALT WILL CAUSE AN 

475 AUTOMATIC RETRY OF THE FAILING TEST. IF THE ERROR IS 

476 SOLID THE PROGRAM WILL LOCK ON THIS TEST, BUT IF IT 

477 IS INTERMITTENT THE PROGRAM WILL CONTINUE ON IN NORMAL 

478 SEQUENCE ONCE THE TEST IS SUCCESSFULLY EXECUTED. 
479 

480 TO ESTABLISH A TIGHT SCOPE LOOP ON THE FAILING TEST, 

481 REPLACE THE "HALT" WITH A 400(8). AND DEPRESS "CONTINUE" 

482 THE "400" IS A "BR .+2" WHICH FUNCTIONS AS A NOP. THIS 

483 IS NECESSARY TO PRESERVE THE INTEGRITY OF THE CONDITION 

484 CODE OPERATE INSTRUCTION THAT IS USED AS A SCOPE SYNC. THI 

485 BUILT IN SYNC FEATURE IS DESCRIBED IN PARA. 5.0. 
486 

487 2. TRAPCATCHER HALTS 
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488 

489 THE VECTOR AREA (LOC 000 - 776) IS PROGRAM LOADED WITH 

490 A STANDARD TRAPC ATCHER AS SHOWN BELOW : 
491 

492 V / V + 2 

493 V+2/ HALT 
494 

495 AFTER THE BASIC INSTRUCTION TESTS THE FOLLOWING VECTORS 

496 ARE SET UP TO POINT TO APPROPRIATE SERVICE ROUTINES: 
497 

498 4/6 BUS ERROR SERVICE 

499 10/12 RSVD INSTRUCTION TRAP SERVICE 

500 20/22 SCOPE LOOP SERVICE 

501 24/26 POWER FAIL SERVICE 

502 30/32 ERROR SERVICE 

503 34/36 PRINT SERVICE 
504 

505 AT THE APPROPRIATE POINTS IN THE COMPREHENSIVE INSTR- 

506 UCTION TESTS THE LINE CLOCK VECTOR (100/102) AND THE DL11 

507 VECTORS (60/62 - 64/66) ARE SET UP TO CHECK INTERRUPTS 

508 FROM THESE DEVICES. ALL OTHER VECTORS REMAIN SET UP TO 

509 "CATCH" UNEXPECTED TRAPS OR INTERRUPTS BY HALTING. 
510 

511 WHEN AN UNEXPECTED TRAP OR INTERRUPT NOT SUPPORTED BY 

512 AN APPROPRIATE SERVICE ROUTINE OCCURS THE CPU HALTS. 

513 WITH THE PC + 4 OF THE VECTOR DISPLAYED IN THE CONSOLE. 

514 THIS IS USED TO IDENTIFY THE CAUSE OF THE UNEXPECTED 

515 TRAP OR INTERRUPT. 
516 

517 THE LAST ENTRY PUSHED ON THE STACK CAN BE EXAMINED 

518 TO DETERMINE WHERE THE PROGRAM WAS WHEN THE TRAP OR 

519 INTERRUPT WAS SPRUNG. REMEMBER THAT THE "OLD PC" GETS 

520 SAVED ON THE STACK WHEN A TRAP OR INTERRUPT OCCURS. 

522 3. CATASTROPHIC ERROR HALTS 

523 

524 

525 THERE ARE TWO HALTS* ONE IN THE BUS ERROR SERVICE ROU- 

526 TINE AND THE OTHER IN THE RSVD INSTRUCTION TRAP SERVICE 

527 ROUTINE THAT HALT THE PROGRAM IF ONE OF THESE ERRORS 

528 OCCURS WHILE STILL SERVICING A PREVIOUS BUS ERROR 

529 OR RSVD INSTRUCTION TRAP. AFTER THE HALT THE CONSOLE 

530 DISPLAYS THE PC+2 OF THE ERROR HALT. THIS IS USED 

531 TO IDENTIFY WHICH OF THE TWO TYPES OF ERRORS - RSVD 

532 OR BUS ERROR - OCCURRED LAST. 
533 

534 THERE IS A SOFTWARE FLAG TAGGED "CATERR" THAT MAY BE 

535 EXAMINED TO OBTAIN THE FOLLOWING INFORMATION: 

536 

537 CCATERR3 = 000002 TWO SUCCESSIVE BUS ERRORS 

538 CCATERR1 = 001000 TWO SUCCESSIVE RSVD INSTR. TRAPS 

539 CCATERR3 = 000401 A COMBINATION OF THE TWO. THE 

540 CONTESTS OF THE ADDRESS DISPLAY 

541 IDENTIFIES WHICH TYPE OCCURRED LAST. 
542 

543 THE STACK PROVIDES THE FOLLOWING ADDITIONAL INFORMATION: 
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544 

545 CSP 3 / PC OF THE 2ND TRAP 

546 rSP+23 / PSW OF THE 2ND TRAP 

547 CSP+4I / PC OF THE 1ST TRAP 

548 CSP+63 / PSW OF THE 1ST TRAP 
549 

550 4.0 PERFORMANCE AND PROGRESS REPORTS 

551 

552 

553 4.1 PERFORMANCE REPORTS 

554 

555 

556 THERE IS ONLY ONE PERFORMANCE REPORT SUPPLIED BY THE PROGRAM 

557 AND CONSISTS OF A SIMPLE END OF PASS MESSAGE OF THE FORMAT 

558 SHOWN BELOW: 
559 

560 PASCNT = XXXXXX ERRCNT = YYYYYY 

561 

562 WHERE: XXXXXX IS THE TOTAL NUMBER OF COMPLETE PASSES 

563 OF THE ENTIRE PROGRAM (OCTAL ) 
564 

565 YYYYYY IS THE TOTAL ERROR COUNT IN OCTAL 

566 

567 4.2 PROGRESS REPORTS 

568 

569 

570 THERE ARE TWO PROGRESS REPORTS PRINTED THAT REPORT NORMAL 

571 ERROR FREE EXECUTION OF THE PROGRAM. 
572 

573 A. END OF PASS PRINTOUT AS DESCRIBED IN 4.1 ABOVE. 

574 

575 B. PROGRAM IDENTIFICATION MESSAGE AS DESCRIBED BELOW : 

576 

577 CQKDAC KDll-K BASIC LOGIC TESTS 

578 

579 THIS MESSAGE GETS PRINTED THE FIRST TIME THE PROGRAM ENTERS 

580 THE COMPREHENSIVE INSTRUCTION TEST SECTION UNLESS 

581 INHIBITED BY SW12=1. AFTER THE FIRST PASS THIS PRINTOUT 

582 IS AUTOMATICALLY INHIBITED UNLESS THE PROGRAM IS RESTARTED AT 200(8). 
583 

584 4.3 MAINTENANCE BREAKPOINT FEATURE 

585 

586 

587 THERE IS A MANUAL PROGRESS REPORT FEATURE THAT ALLOWS THE USER 

588 TO STEP THROUGH THE PROGRAM, HALTING AFTER EVERY N'TH TEST »ITH 

589 PROGRESS INFORMATION DISPLAYED IN THE CONSOLE ADDRESS DISPLAYS. 

590 TO ACTIVATE THIS FEATURE THE USER MUST SET THE DESIRED 

591 "BREAKPOINT HALT" BITS IN THE MEMORY LOCATION TAGGED "BPTLOC". 

592 THIS LOCATION PROVIDES SIXTEEN POSSIBLE HALTS DISPERSED EVENLY 

593 THROUGHOUT THE PROGRAM (APPROX. EVERY 20 TESTS). AT EACH CHECK- 

594 POINT THE PROGRAM EXAMINES A PARTICULAR BIT IN "BPTLOC" AND 

595 HALTS IF THE BIT IS SET TO A "1" OTHERWISE IT CONTINUES IN 

596 NORMAL SEQUENCE. AFTER THE HALT DEPRESSING "CONTINUE" WILL CAUSE 

597 RESUMPTION OF NORMAL PROGRAM EXECUTION. SETTING LOCATION "BPTLOC" 

598 TO ALL l'S (177777) WILL RESULT IN THE FOLLOWING SIXTEEN HALTS 

599 WITH THE INFORMATION SHOWN DISPLAYED IN THE CONSOLE : 
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S EQ 0012 



600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 



5.0 
5.1 



C3PTLOC3 



BIT00=1 
BIT01=1 
8IT02=1 
BIT03=1 
BIT04=1 
3IT05=1 
BIT06=1 
8IT07=1 
BIT08=1 
BIT09=1 
BIT 10=1 
BIT11=1 
BIT12=1 
BIT13=1 
BIT14=1 
BIT15=1 



ADDRESS DISPLAY 
HALT PC + 2 

4326 

6312 

10632 

11762 

14356 

17116 

21542 

24350 

27162 

32156 

34642 

37452 

42142 

46142 

52602 

55426 



NOTE: IF THE USER DEPOSITED A 000400(8) IN LOCATION "BPTLOC" 
ONLY ONE HALT WOULD OCCUR AND AT THAT TIME THE 
DISPLAY SHOULD CONTAIN 27162. 

THIS FEATURE IS USEFUL FOR TRACKING DOWN THE TEST THAT CAUSES 
A "RUNAWAY" OR "HUNG" PROGRAM. 

LOCATION "BPTLOC" IS PROGRAM LOADED AS 000000 TO INHIBIT ANY HALTS, 
MAINTENANCE PROCEDURES 



THE KD11-K PROCESSOR 



THE PROCEDURES OUTLINED IN THIS SECTION ASSUME THAT "CQKDA" 
CAN BE LOADED INTO CORE AND STARTED. IF THE FAILURE MODE 
PREYENTS PROGRAM LOADING OR AFFECTS NORMAL POWER UP AND 
CONSOLE OPERATIONS, THE TECHNICIAN MUST REVERT TO THE MANUAL 
DEBUG AND CHECKOUT PROCEDURES. 

THE KD11-K CENTRAL PROCESSING UNIT CAN BE VIEWED AS 
CONSISTING OF TWO MAJOR LOGIC AREAS AS DEPICTED BELOW : 

DATA IN **** 



************** 



***************** 



* CONTROL 

* SECTION 



*»>>»»>>>»* 
*<<<<<<<<<<<<<* 



DATA 
PATHS 
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************** ***************** 

* 
* 

***>DATA OUT 

THE DATA PATHS CONSIST OF A LOGICALLY INTERCONNECTED GROUP 
OF STATIC DATA FACILITIES (REGISTERS, MULTIPLEXORS, ALU'S 
ETC.) REQUIRED TO TEMPORARILY STORE, MODIFY, AND TRANSFER 
DATA ITEMS (16 BIT WORDS OR 8 BIT BYTES) ACCORDING TO THE 
DESIGN SPECIFICATIONS FOR THE PDP11. 

THE CONTROL SECTION SUPPLIES PREDEFINED SEQUENCES OF CONTROL 
SIGNAL SETS TO ACTIVATE THE REQUIRED DATA FACILITIES WITHIN 
THE DATA PATHS. IN THE KDll-K THESE CONTROL SIGNAL SETS ARE 
STORED IN A READ ONLY MEMORY (ROM) AND GENERATED BY READING 
OUT A UNIQUE SEQUENCE OF ROM WORDS FOR EACH OPERATION TO BE 
PERFORMED. 

THE SEQUENCE GENERATED BY THE CONTROL SECTION IS VARIABLE 
AND DEPENDENT UPON THE INSTRUCTION OR LOGIC OPERATION 
BEING EXECUTED. THERE ARE HUNDREDS OF THESE SEQUENCES POSS- 
IBLE DEPENDENT UPON OF THE PROGRAM CODING. 

"CQKDA" IS DESIGNED TO GENERATE ALL POSSIBLE MICROINSTRUCTION 
SEQUENCES AND COMBINATIONS OF DATA AND CONTROL SIGNALS. THE 
INDIVIDUAL TESTS ARE LOGICALLY SEQUENCED AND STRUCTURED TO 
DETECT AND ISOLATE PARTICULAR MICROPROGRAM SEQUENCES THAT ARE 
FAULTY. 

2 CONDITION CODE SCOPE SYNC FEATURE 

FROM THE BIT SECTION TO THE MED TESTS IN THE CIT SECTION, ALL 
TEST INSTRUCTIONS ARE PRECEEDED BY A CONDITION CODE OPERATE 
INSTRUCTION. THE UBREAK REGISTER IS PROGRAM LOADED TO GENERATE 
A SYNC PULSE NEAR THE END OF THIS INSTRUCTION. DURING THE MED 
TESTS, THE PULSE IS GENERATED NEAR THE BEGINNING OF THE MED 
EXECUTION. THIS PULSE IS GENERATED ON BACKPLANE PIN B03M2 AND 
MAY BE USED IN CONJUNTION WITH THE PROGRAM LOOPING FEATURES TO 
PROBE THE KDll-K DURING THE FAILING TEST. 

ITLE CQKDA-C KDll-K BASIC LOGIC TESTS 
COPYRIGHT ?C) 1977,1978 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MASS. 01754 



6b6 




657 




658 




659 




660 




661 




662 




663 




664 




665 




666 




667 




668 




669 




670 




671 




672 




673 




674 




675 




676 




677 




CIO 

678 




6 !9 




OOU 




DDI 








c o o 
683 




684 




685 


5. 


686 




687 




688 




689 




690 




691 




692 




693 




694 




695 




696 




697 


% 


698 


699 


.T 


700 


• * 


701 




702 




703 




704 




705 




706 




7 07 




708 


is 


709 


}* 


710 


. * 


711 


/ 



OPERATIONAL SWITCH SETTINGS 
SWITCH USE 
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712 
713 
714 
715 
716 
717 
718 
719 

722 
723 
724 



727 



730 
731 

Ml 

734 
735 
736 
737 
738 
739 
740 

™1 
7 42 
743 
744 
745 
746 
747 

m 

750 
751 

P 
754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 



001000 



8oooii 

000015 
000200 
177776 

177774 
177772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 
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SEQ 0014 



1 j 



;* 14 

;* 13 

>* 12 

;* n 

;* io 

;* 9 

•ENABLE ABS 

• SBTTL BASIC DEFINITIONS 

;*INITIAL ADDRESS OF THE STACK POINTER *** 

STACK= 1000 



HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 

INHIBIT ID MESSAGE & UNEXPECTED TRAP MESSAGES 
INHIBIT ITERATIONS 

TEST IN SWR<8:0> 
ERROR 



LOOP ON 
LOOP ON 



1000 *** 



.EQUIV 
.EQUIV 



EMT, ERROR 
IOT, SCOPE 



;;basic definition of error call 
;;basic definition of scope CALL 



^MISCELLANEOUS DEFINITIONS 

HT= 11 ;;CODE FOR HORIZONTAL TAB 

LF= 12 >;CODE FOR LINE FEED 

CR= 15 ??CODE FOR CARRIAGE RETURN 

CRLF= 200 ;jCODE FOR CARRIAGE RETURN-LINE FEED 

177776 ;;PROCESSOR STATUS WORD 



PS.PSW 
177774 
177772 



570 



>;STACK LIMIT REGISTER 
/ ; PROGRAM INTERRUPT REQUEST REGISTER 
;;HARDWARE SWITCH REGISTER 
;;HARDWARE DISPLAY REGISTER 



(♦GENERAL PURPOSE REGISTER DEFINITIONS 



tO 

w 

%3 
*4 
%5 
%6 
%7 



;;general register 
;;general register 
;;general register 
; ;general register 
;;general register 
; jgeneral register 
;;general register 
/jceneral register 
;;stack pointer 
;;program counter 



►PRIORITY LEVEL DEFINITIONS 

?0= APRIORITY LEVEL 

?1 = 40 >;PRIORITY LEVEL 

?2= 100 ;;PRIORITY LEVEL 

?3= 140 ^PRIORITY LEVEL 

*4= 200 ;;PRIORITY LEVEL 

15= 240 ;;PRIORITY LEVEL 

?6= 300 ^PRIORITY LEVEL 

17= 340 APRIORITY LEVEL 

(•"SWITCH REGISTER" SWITCH DEFINITIONS 



SW15 = 
SW14 = 
SW13= 
SW12 = 
SW11 = 
SW10 = 



100000 
40000 
20000 
10000 
4000 
2000 
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BASIC DEFINITIONS 



SEQ 0015 



768 
769 
770 

m 

775 
776 

m 

779 



791 
792 

\h 

796 

m 

799 
800 



803 
804 



el6 

817 
818 
819 
820 



001000 
000400 
000200 
OOOIOO 
000040 
000020 
000010 
000904 
" 52 
31 



000004 
000010 

mm 

000014 
000020 



SW09 = 
SW08 = 
SW07 = 
SW06 = 
SUQ5= 
SW04= 
SW03 = 
SW02= 

iwoi= 

. EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



1000 

400 

200 

100 

40 



4 

2 

SW09,SW9 
SW08,SW8 
SW07,SW7 
SW06/SW6 
SW05,SW5 
SW04,SW4 
SW03/SW3 
SW02,SW2 
SW01,SW1 
SW00/SW0 



;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
6lT15= 100000 
BIT14= 




BIT09,BIT9 
BIT08,BIT8 
BIT07,BIT7 
BIT06,BIT6 
BII05>BIT5 
BIT04>BTT4 
BIT03>BIT3 

BIT02,BIT2 

.EQUIV BIT01,BIT1 
. EQUIV BITOO, BITO 

;*BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC= 4 ;>TIME OUT AND OTHER ERRORS 

RESVEC= 10 >;RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC=14 BIT 
j 4 ;;TRACE TF 



TRfVEC= 



BPT¥EC= 14 ;;BREAKPQINT TRAP (BPT) 

IOTVEC= 20 >; INPUT/OUTPUT TRAP (IOT) **SCOPE** 
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824 

625 
926 
327 
828 

§ 2 2 
830 

931 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

fibl 

952 

853 

854 

855 

856 

857 

818 

860 
861 
862 
863 

m 

866 
867 
868 
869 
870 
871 
872 
373 



00017^ 
000176 



000200 



000024 
000044 



300700 
300700 
300702 
500704 
300706 
300710 
300712 



000046 
000352 



000024 
000030 
000034 
000060 
000064 
000240 



000000 



000174 
000000 
000000 

Q0 M 



0001 



000700 
000024 
000200 
000044 
000700 
000700 



000000 
001120 
000000 
000000 
000000 
000014 



000714 
000046 
060644 
000052 
000000 
000714 



001630 
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SEQ 0016 



PWRVEC= 24 

EMTVEC= 30 

TRAPVEC=34 

TKVEC= 60 

TPVEC= 64 

PIRQVEC=240 

•SBTTL TRAP CATCHER 



77power fail 

;;emulator trap (emt) **error** 

//TRAP" TRAP 

mTY KEYBOARD VECTOR 

;}TTY PRINTER VECTOR 

//PROGRAM INTERRUPT REQUEST VECTOR 



/•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2, HALT" 
/•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
J*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
. = 174 

dispreg: .mord o 



swreg: 

•SBTTL 



.=700 
.SBTTL 



.WORD 



j;SOFT«ARE DISPLAY REGISTER 
•/SOFTWARE SWITCH REGISTER 



STARTING ADDRESS(ES) 

JMP 9#START ;;JOMP TO_ STARTING ADDRESS OF. PROGRAM 



APT PARAMETER BLOCK 



>PUT APT HEADER IN STACK AREA 



>SET 



********* A****************************** ************** *•*••** 

LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
******** **************** ****** *********** 



*************** ******* 



.$x=. 

200* 

Sapt'hdr 



;?SAVE CURRENT LOCATION 

;;SET POWER FAIL TO POINT TO START OF PROGRAM 
JjFOR APT START UP 

JJPOINT TO APT INDIRECT ADDRESS PNTR. 
>;POINT TO APT HEADER BLOCK 



****** ****************** ********** ************* 

UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
ERFACE SPEC. 



<SET 
;INT 



SAPTHD : 
5HIBTS: .WORD 



SMBADR: 
sTSTM: 

spastm: 
SUNitm: 

. SBTTL 





SMAIL 



WORD 
. WORD 
.WORD 
. WORD 
.WORD 

ACT11 HOOKS 



>JTWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
;;ADDRESS OF APT MAILBOX (BITS 0-15) 
>;RUN TIM OF LONGEST TEST 



;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
/{ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 
S.ETEND-$M»IL/2 ; /LENGTH MAI L BO X-ET ABLE (WORDS) 



UNIT 



**************** ****************** *************** **************** 

;HOOKS REQUIRED BY ACT11 

$SVPC=. >SAVE PC 

. = 46 

SEND AD ;;l)SET LOC.46 TO ADDRESS OF SENDAD IN 

.=52 

. WORD ;?2)SET LOC.52 TO ZERO 

.=$SVPC RESTORE PC 



.$EOP 
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101000 
JOIOOQ 
501002 



001066 
001070 

881°o? 2 4 

001076 
001100 
001102 
001104 
001106 
001110 

iiiil 

001116 



001000 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
0Q0000 
177570 
177570 



177566 
000 
002 
012 
000 

000000 

000000 

mx 

000000 

888888 

000000 
000000 

mooo 
000 
000000 
000000 

ooooi^ 

015 
000012 
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COMMON TAGS 

. SPTTL COMMON TAGS 

• . **•*••••***•** ************** ************ ************ ********** * 

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



SEQ 0017 



$CMTAG: 



.=1000 




; ; START OF COMMON TAGS 

;;CONTAINS THE TEST NUMBER 

//CONTAINS ERROR FLAG 

//CONTAINS SUBTEST ITERATION COUNT 

//CONTAINS SCOPE LOOP ADDRESS 

;;CONTAINS SCOPE RETURN FOR ERRORS 

>>CONTAINS TOTAL ERRORS DETECTED 

//CONTAINS ITEM CONTROL BYTE 

;;CONTAINS MAX. ERRORS PER TEST 

//CONTAINS PC OF LAST ERROR INSTRUCTION 

>;CONTAINS ADDRESS OF 'GOOD' DATA 

;;CONTAINS ADDRESS OF "BAD ' DATA 

//CONTAINS 'GOOD* DATA 

//CONTAINS 'BAD* DATA 

/ /RESERVED — NOT TO BE USED 

//AUTOMATIC MODE INDICATOR 
/ > INTERRUPT MODE INDICATOR 

/ } ADDRESS OF SWITCH REGISTER 
/ /ADDRESS OF DISPLAY REGISTER 
//TTY KBD STATUS 
//TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
/ / TTY PRINTER BUFFER REG. ADDRESS 
//CONTAINS NULL CHARACTER FOR FILLS 
//CONTAINS * OF FILLER CHARACTERS REQUIRED 
//INSERT FILL CHARS. AFTER A "LINE FEED" 
//"TERMINAL AVAILABLE" FLAG ( BIT<07>=0=YES ) 
;;CONTAINS THE ADDRESS FROM 
(/WHICH (SREGO) WAS OBTAINED 
-\IHS <<$REGAD)+0) 



REGADH2) 
REGAD)+4) 
>REGAD)+6 J 
5REGAD)+10] 
5REGAD)*12 



<12> 

; ********************** 



//CONTA1 

;;contains ( 
;;contains 
;;contains 
;;contains 
;;contains i 

//USER DEFI»__ 
;;USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
//MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 
//QUESTION MARK 
//CARRIAGE RETURN 
;JLINE FEED 
************************ ***************** 
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932 
933 
934 
935 
936 
937 

Ml 

940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 

953 
954 
955 
956 



mi- 



!0 

001122 
001124 

mm 

001132 
001134 
001136 
001140 
001140 
001141 
001" "~ 

w 



000000 
000000 
000000 

°ol . 

000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



uuuuuu 

P SS8888 

1132 000000 



51142 

win 



a************************ **«^** ****************** ********* 
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APT MAILBOX-ETABLE 

.SBTTL APT MAILBOX-ETABLE 
..«**** 
.EVEN 
>MAIL: 

>msgty : . word amsgty 

fatal: .word afatal 

testn: .word atestn 

pass: .word apass 

devct: .word adevct 

>unit: .word aunit 

>msgao: .word amsgad 

Smsglg: .word amsglg 
etable: 

[env: .byte aenv 

envk: .byte aenvm 

>swreg: .word aswreg 

;uswr: .word auswr 

Jcpoop: . WORD ACPUOP 



SEQ 0018 



;apt mailbox 
;message type code 
>fatal error number 
;test number 
;pass COUNT 
;OEVICE COUNT 
;i/o UNIT NUMBER 

;message address 
jmessage length 
>apt environment table 
environment byte 
. environment mode bits 
;;apt switch register 
>;user switches 
>>cpu type/options 

BITS 15-j|=CPU TYPE 

r£a(;t INI' CLOCK 



001150 



setend: 

.MEXIT 



BIT 
BIT 
BIT 



64=01,11/05=02,11/2 0=03,11/40=04,11/45=05 
70=06, F" - 



PDQ=07,Q=10 



9=FLO ATING POINT PROCESSOR 
8=MEMORY MANAGEMENT 



CQKDA-C 
CQKDAC.P 

957 
958 
959 
960 



963 
964 

m 
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ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

5*N0TE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS ! 



SEQ 0019 



EM 
DH 
DT 
DF 



>;POINTS TO THE ERROR MESSAGE 

;;POINTS TO THE DATA HEADER 

;>POINTS TO THE DATA 

;;POINTS TO THE DATA FORMAT 



971 
972 

83 

976 



980 
981 



9§3 
98? 



991 
995 

33 

995 
996 



999 
1000 



1008 



105 



001150 



216 



mat 

001230 



064640 
000000 

SBooSo 

064640 
065061 

mm 

065013 



000000 



000000 

80OOOO 

8S00OO 

064660 
000000 

mm 

64650 

wn 
000000 

HM Mil 

001246 000000 



SERRTBi 
> ITEM 1 



; ITEM 2 



; ITEM 3 



> ITEM 4 



;ITEM 5 



/ITEM 6 



; ITEM 7 



JITEM 10 



EMI 


DTI 



EM2 
DH2 
DT2 


EMS 


DT3 



EM4 
DH4 
DT4 


EM5 


DT5 


EM6 


DT6 



EM7 

DT7 



EM10 


DT10 




>S/B DST WAS DST DEST (IR) TEST (PC) (SP) (PSW) 
;$REG4, $REG3, $REG2, $REG1,$REG0,$ERRPC,SREG5,$REG6 

;S/B DST WAS DST DEST (IR) TEST (PC) (SP) (PSW) 
; IS R3 

;$REG4, $REG3, SREG2, $REG1, $REG0,$ERRPC,$REG5,SREG6 

>S/B SP WAS SP (IR) TEST (PC) (PSW) 
;$REG4, $REG3, $REG1, $REG0,$ERRPC, $REG6 

JS/B DST WAS DST DEST (IR) TEST (PC) (SP) (PSW) 
• IS R5 

5$REG4, SREG3, $REG2, SREG1, $REG0, $ERRPC, $REG5, $REG6 

>(IR) TEST (PC) (SP) (PSW) 
>$REG1, SREGO, $ERRPC, $REG5, $REG6 

; DEST (IR) TEST (PC) (SP) (PSW) 
;$REG2, $REG1, $REG0, SERRPC, $REG5, $REG6 

;WAS DST DEST (IR) TEST (PC) (SP) (PSW) 
;$REG3, SREG2, $REG1, $REG0, $ERRPC, $REG5, SREG6 

;S/B RES WAS RES DST OP STC OP TEST (PC) (SP) (PSW) 
>$REG4, $REG3, SREG2, $REG1, $REG0, $ERRPC, $REG5, $REG6 
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POINTER TABLE 



1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 

mi 

1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 

mi 

1053 
:054 
.055 
056 
.057 
058 
059 
060 
061 

m 

064 
065 
1066 
067 
068 



001250 
001252 
001254 
001256 



001260 
001262 
001264 
001266 



001270 
001272 
001274 
001276 



001300 
001302 
001304 
001306 



001310 
001312 
001314 
001316 



001320 
001322 
001324 
001326 



001330 
001332 
001334 
001336 



001340 
001342 
001344 
001346 



001350 
001352 
001354 
001356 



065260 
065276 
070024 
000000 



065334 
067372 
067664 
000000 



065373 
067372 
067664 
000000 



065425 
067372 

8S08S0 



065445 
067303 
067630 
067756 



067606 
067670 
000000 



067005 
067606 
067670 
000000 



065704 
067606 
067670 
000000 



065534 
067335 
067640 
067760 



/ITEM 11 



EMU >TESTS SKIPPED 
DH11 _ - 



DTU 




PC EXPCTD ACTUAL (TEST &*S) 
;$ERRPC, STESTH/ $REG0 



; ITEM 

EM12 

DH23 

DT23 



J ITEM 
EMI 3 
DH23 
DT23 


/ITEM 

EH14 

DH23 

DT23 





; MED DID NOT ABORT IN USER MODE 
;PC 

JSERRPC 



;med executed in user mode 
;pc 

;$ERRPC 



jmed changed psw 
;pc 

;$ERRPC 



15 



/ITEM 
EM15 
DH15 
DT15 
DF15 

; ITEM 16 



JMICROBREAK TRAP-TO-4 DID NOT OCCUR 
; ERRPC MEDCODE MICROBK REG. 
;$ERPPC,$TMP0,$TMP1,0 
;0/0 



EM16 
DH44 
DT24 


; ITEM 17 



;CACHE DATA LOGGED INCORRECTLY 
;PC EXPCT RECVD 
;$ERfiPC,SREGl / $REG0 / 



EM45 
DH44 
DT24 


; ITEM 20 



JCACHE TAG LOGGED WRONG 
;PC EXPCT RECVD 
^ERRPCSREGO/SREGl/O 



EM26 
DH44 
DT24 



; ITEM 

EM21 

DH17 

DT21 

DF17 



;PHYS. B A LOGGED WRUNG 

;PC EXPCT RECVD 

;$ ERRPC, $REGl,$REG0/0 



21 



?CSP CONSTANT WRONG 
>PC MEDCODE EXPECTO RECEIVD 
;$ERPPC,$TMP1 / $TMP2,$REG0,0 
>0,0,0 
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1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 

108^ 
1083 

t° 8 5 
l8§6 

i8ie 

1089 
1090 
1091 
|°93 

1095 
1096 
1097 
1098 
1099 

tfo°i° 

1102 
1103 
1104 
1105 
1106 
1107 
110B 
1109 
1110 

Mi 

mi 

1115 

tttf 

1118 

HM 

Hii 



001360 
001362 
001364 
001366 



001370 
001372 
001374 
001376 



001400 
001402 
001404 
001406 



001410 

mm 

001416 



QQ1420 
001422 
001424 
001426 



001430 
001432 
001434 
001436 



001440 
001442 
001444 
001446 



001450 
001452 
001454 
001456 



065557 
067335 
067652 
067760 



065606 
067372 
067664 
000000 



065625 
067377 
067670 
000000 



065510 
067606 
067670 
000000 



065704 
067436 
067706 
000000 



065731 
067520 
067722 
000000 



066001 
067372 
067664 
000000 



066604 
067372 
067664 
000000 



/ITEM 22 
EM22 
17 



DH 11 
DT22 
DF17 

/ITEM 
EM23 
DH23 
DT23 


J ITEM 24 

EM 2 4 
DH24 
DT24 



; ITEM 25 

EM17 
DH44 
DT24 


/ ITEM 26 

EM26 
DH26 
DT26 


/ITEM 27 

EM27 
DH27 
DT27 


) ITEM 30 

EM30 
DH23 
DT23 


; ITEM 31 

EM31 
DH23 
DT23 


; ITEM 32 



;BAD DATA READ BY A MED 
;PC MEDCODE EXPECTD RECEIVD 
;$ERRPC / $TMP1,STMP2,$TMP3,0 
;0,0,0 



}HO ODD PC TRAP 
;PC 

;$ERRPC 



;ODD ADR. BIT NOT SET IN CPU ERROR REGISTER OR LOG JAM 
?PC CPUERR LOGJAM 
;$ERRPC,$REG1,$REG0 



;LOG CUA LOGGED INCORRECT U-ADDR 
>PC EXPCTD RECVD 

JSERRPC SREG1 $REG0 



;PHYS. B A LOGGED WRONG 

;PC PA<17:16>-EXPCT-PA<15:0> PA<17:16>-RECVD-PA<15:0> 
;$ERRPC,$REG1,$REG2,$REG0 / $REG3,0 



;CACHE PARITY ERROR LOGGED IN BACK UP MODE 
;PC LOGPBA LOGDATA LOGTAG 
;$ERRPC / $REG3 / $REG1 / $REG2 



;CACHE PARITY TRAPPED WHEN DISABLED 
JPC 

;$ERRPC 



;NO CACHE PARITY TRAP 
;PC 

JSERRPC 
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1126 
127 
2S 



175 

11% 

180 



001460 
001462 
001464 
001466 



003 
001 
00 
001 



500 

181 

506 



mm 

mm 



001520 
001522 

mm 



001530 
001532 
001534 
001536 



066113 
067553 

mm 



mm 

Q6767Q 
000000 



066222 

mm 

000000 



066257 
067377 
067670 
000000 



066345 
067422 



mi 

J67670 
500000 



m540 
542 
001544 

001546 000000 



>7670 



001550 
001552 
001554 
001556 



066044 
067372 
067664 
000000 
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ERROR POINTER TABLE 



EM32 ; MEMORY ERROR RBCISTERS INCORRECT 
DH32 JPC MEMERR 
DT25 ;$ERRPC,$REG0 



SEQ 0022 



;ITEM 33 



EM33 ;TIME00T BIT MOT SET IN CPU 
DH24 >PC CPUERR LOGJAM 
DT24 ;$ERRPC,$R£G1,$REG0 



ERROR REGISTER OR LOG JAM 



;ITEM 34 

EK34 ;NO ILLEGAL INTERNAL ADDRESS TRAP 
DH23 >PC 
DT23 >$ERRPC 


/ITEM 35 

EM35 ; INTERNAL ADDRESS ERROR BIT NOT SET IN CPU ERROR REGISTER OR LOG JAM 
DH24 ;PC CPUERR LOGJAM 
OT24 ;$ERRPC,$REG1/$REG0 



; ITEM 36 

EM36 ;LAST INTERRUPT/TRAP VECTOR NOT LOGGED IN FLAG REGISTER 
DH25 ;PC FLGREG 
DT25 ;$ERRPC,$REGO 

? ITEM 37 

EM37 ;LOG FIRST MODE DID NOT INHIBIT ERROR LOG AFTER FIRST ERROR 
DH24 )PC CPUERR LOGJAM 
DT24 ;$ERRPC,$REG1,$REG0 


/ITEM 40 

EM40 /ERROR LOG WAS NOT RE-ENABLED/ ODD ADR BIT CLR IN CPUERR 
DH24 JPC CPUERR LOGJAM 
DT24 J$ERRPC,$RF.G1,$REG0 


/ ITEM 41 

EM41 INSTRUCTION NOT ABORTED IN CACHE ABORT MODE 
DH23 >PC 
DT23 ;$ERRPC 


/ITEM 42 
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mi 
mi 

1187 



C 199 

[200 



mm mm 

001564 067700 
001566 000000 



8&p 

000000 



31600 067064 

p mm 

91606 000000 



001610 

- 611 



go 



624 
626 



067115 
^221 
57734 

)o6oo 



mm 

mm 



>000C 



0766QQ 
140000 

m 



74< 



000200 
lb 
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ERROR POINTER TABLE 



SEQ 0023 



EM42 
DH42 
DT25 


/ITEM 43 



;LO BYTE & TAG PARITY BITS NOT SET IN LOG SERVICE 
JPC LOGSERVCE 
;$ERRPC,$REG0,0 



EM43 
DH32 
DT25 


> ITEM 44 

EMEIS1 
DHEISi 
DTEIS1 


> ITEM 45 

EMEIS2 
DHEISI 
DTEIS1 


/ITEM 46 

EM46 
DH46 
DT46 





?LO BYTE S, TAG PARITY BITS NOT SET IN MEM ERR REGISTER 
;PC MEMERR 
;$ERRPC,SREG0 



;EIS SET COND CODES WRONG 

; PSW REG-WAS-REG+1 REG-S/B-REG+1 PC TEST ( 

;$REGAD SREG2 $REG3 $REG1 $REG4 $ERRPC SREGO $1 



;EIS GAVE WRONG RESULT 
} PSW REG-WAS-REG+1 REG-S/B-REG+1 
; SREGAD SREG2 $REG3 $REG1 $REG4 



PC 
SERRPC 



TEST (IR) 
$REG0 $TMP0 



J AUTO- INCREMENT (DECREMENT) DID NOT OCCUR 
1 PC (IR) TEST 
5TMP0 



>$ERRPC $1 



SREGO 



MED = 076600 
UM= 140000 

70 



WWP=BIT6 
DPTRP=BITO 
PAB0RT=BIT7 
LO=BIT6 
HI=BIT7 
TAG=BIT5 

.EQUIV SP/KSP 



0002' 
0001' 



MED OPERATION CODE DEFINITIONS 

WCNSSW=226 
RDWHAMI=022 
WRWHAMl=222 
RDFLAG=144 
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1237 
1238 
1239 
1240 
1241 
1242 



000344 
000100 
000300 
000101 
000301 
000102 
000302 
000103 

mm 

000304 
000105 
000305 
000106 
000306 
000107 
000307 
000071 



MACY11 30A(1052) 15-NOV-78 
ERROR POINTER TAPLE 

WRFLAG=344 

RDLJAM=100 

WRLJAM=300 

RDLSERVICE=101 

WRLSERVICE=301 

RDLPBA=102 

WRLPBA=302 

RDLCUA=103 

WSLCUA=303 

RDLFGINT=104 

*RLFGINT=304 

RDLWHAMI=105 

WRLWHAMI=305 

RDLD ATA= 106 

WRLDATA=306 

PDLTAG=107 

WRLTAG=307 

SWB01=71 



15:26 PAGE 25 



SEQ 0024 



;MICRO ADDR. IN SWAB INST. 



177560 
177562 
177564 
177566 
177546 



/ ADDRESS ASSIGNMENTS FOR DL11 CONSOLE TERMINAL INTERFACE 



RCSR=177560 
RDBR = 177562 
XCSR = 177564 
XDBR = 177566 
LKCSR= 177546 



;RCVR. CONTROL / STATUS REG. ADDRESS 
/RECEIVER DATA BUFFER REG. ADDR. 
TRANSMITTER CONTROL / STATUS REG. ADDR 
JTRANSMIT DATA BUFFER REG. ADDR. 
;LINE CLOCK ADDRESS 
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1266 
1267 



001630 000401 
001632 000000 



001634 000402 

001636 000403 

001640 000000 

00164? 000775 

001644 000000 



001646 100403 

001650 001402 

00165? 102401 

001654 103002 

001656 000000 

001660 000772 



00166:? 000277 

001664 10C003 

Q01666 001002 

001670 102001 

001672 103402 

001674 000000 

001676 000771 
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SEQ 0025 



*********** 



\"^m i mk"" , " l 

',1111111 II II II II llll II 

•SBTTL BT001 "BR" TEST -POSITIVE OFFSET 
*************************************** 



> **************** •* 



START: 
BT001: BS 



********************************************** 

/TEST THE BR FORWARD 
EOOl: HALT ; BR FAILED TO LOAD PC PROPERLY 

• ******************************************************************** 

. SBTTL BT002 "BR" TEST - NEGATIVE OFFSET 

************ 

JGO TO TEST INSTRUCTION 
;GC TO NEXT TEST 
;JUST IN CASE 

;TEST THE BR - NEG . OFFSET 
;BR FAILED WITH NEG. OFFSET 

• ******************************************************************** 

. SBTTL BT003 "BASIC COND. BR" TEST - FLAGS CLEARED 

. *********** *********************** ******** ************ til 

BT003: 



BT002: 

A002: 

EX002: 

1002: 

E2002: 



BR 
BR 

H 4LT 

BR 

HALT 



1002 
BT003 



A002 



He* ********** 



BMI 

BEQ 

nvs 

BCC 
103: HALT 

BR 

************ 



E003 
K003 
E003 
BT004 



PT003 



r*** *************) 



;BR IF "N" SET 
;BR IF "Z" SET 
;BR IF "V" SET 

;br if "C" clear 

>ERROR - ONE OF THE ABOVE BR'S failed 
>OR THE FLAGS FAILED TO CLEAR ON "START" 
;LOCK ON HARD ERROR 



>** ******************** ************** 



. SBTTL BT004 "SCC AND COND. BR'S" TEST - FLAGS SET 



BT004: 
1004: 



E004: 



SCC 

PPL 
BNE 
BVC 
BCS 

HALT 

BR 



E004 
E004 
E004 
BT005 



BT004 



**********************! 



r ************ 

/MAKE N:C=1111 

;BR IF "N" FAILED TO SET 
;BR IF "Z" FAILED TO SET 
>BR IF "V" FAILED TO SET 
;BR IF "C" SET OK 

/ERROR - ONE OF THE ABOVE BR'S FAILED 
;OR THA SCC FAILED TO SET ALL THE FLAGS 
;LOCK ON HARD ERROR 

************* 
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CQKDAC.P11 07-NOV-78 14;09 BT005 "CCC AND CONO. BR'S" TEST - FLAGS CLEARED 



1324 



.SBTTL BTQQ5 "CCC AND CQND, BR'S" TEST - FLAGS CLEARED 
i ************* *******************************^* ******** ***«*< 
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BT005 "CCC AND COND. BR'S" TEST - FLAGS CLEARED 



125 
$26 
27 



i9 
140 

hi 

[45 



001700 

001702 
001704 

mm 

001712 
001714 



001716 
001720 
001722 

mm 



mm 

001734 
001736 



151 

160 001740 



001742 



001744 
001746 



001750 



001752 
001754 



001756 
001760 



000257 

100403 
001402 

mh 

000000 
000771 



000257 
005000 
001402 

mm 



mm 

005700 
001402 
000000 
000772 



005000 
000257 

005100 

mm 

000000 
000771 



BT005: 
1005: 



E005: 



CCC 

BMI 
BEQ 
BVS 
BCC 

HALT 

BR 



E005 
E005 



BT005 



;MAKE n:c=0000 

;BR IF "H" STILL SET 
J BR IF "Z" STILL SET 
;BR IF "V" STILL SET 
>BR IF "C" GOT CLEARED 

/ERROR - ONE OF THE ABOVE BR'S FAILED 
;OR THE CCC FAILED TO CLEAR ALL FLAGS 
;LOCK ON HARD ERROR 



******************************************************************** 

•SBTTL BT0Q6 "CLR |R" TEST - SETS THE "Z" BIT 
******************************************************* 



j **** 

BT006: 
1006: 



E006: 



CCC 

CLP 

BEQ 

HALT 
BR 



RO 

BT007 



************* 

;hake n:c=0000 

;TEST THE CLR - IT SHOULD SET "Z" 

?BR IF CLR SET "Z" 

;ERROR - CLR FAILED TO SET "Z" 
>LOCK ON HARD ERROR 



BT006 

****** *********** ********* ****** ******** ******** ******** ******** **** 

.SBTTL BTQ07 "TST *R" TEST - USING THE CLR 
••••*• ******************************************************** ****** 



; 

BT007: 



1007: 



E007: 



CLR 
CCC 

TST 

BEQ 

HALT 

BR 



RO 
RO 

BT010 
BT007 



/MAKE CR03 = 000000 

;hake n:c=0000 

;test the tst - it should set 

;BR IF "Z" SET OK 
>ERROR 

; ALL ZE _.. ... . 

>LOCK ON HARD ERROR 



»Z» 



. CLR FAILED TO LOAD RO WITH 

; ALL ZEROES OR TST.FAILED 



******************************************************************** 

.SBTTL BT010 "COM |R" TEST - SHOULD SET "N" AND "C" 
************************************************************** 



*******! 



BT010: 
1010: 



380 



E010 



CLR 
CCC 



COM 



BPL 
BCS 



HALT 

BR 



RO 



E010 
BT011 



BT010 



;MAKE CR01 = 000000 
;MAKE N:C=0000 

;test the cow - cr03 s/b = 177777 

;br if "n" failed to set 
;br if "c" set ok 

;error - com failed 
;lgck on hard error 



******************************************************************** 

• SBTTL BT011 "COM %P AND ADC %R" TEST 
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1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 

lilt 



1400 
1401 
1402 

!403 
404 
405 
406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 

«H 

1418 

\m 

1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 

m\ 

1433 
1434 
1435 
1436 



001762 005000 
001764 000257 



001766 005100 
001770 005500 



001772 001001 
001774 103402 



001776 000000 
002000 000770 



002002 005000 
002004 000257 



002006 012700 177777 



002012 005100 
002014 001402 



002016 000000 
002020 000770 



002022 005000 

002024 005100 

002026 000257 

002030 012700 000000 



002034 
002036 
002040 

002042 
002044 



002056 



005100 
005500 
001402 

000000 
000766 



mm 

000271 



171776 
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BT011 "COM *R AND ADC *R" TEST 

. ********************************************************* 



SEQ 0028 



BT011: 
1011 : 



E011 

; 



CLR 
CCC 



COM 
ADC 



BNE 
BCS 



HALT 

BR 



HO 
PO 



EOU 
BT012 



;MAKE C303 = 000000 

;MAKE N:C=00C0 

;TEST THE CO" - CRQ3 S/B = 177777 

JTEST THE ADC - CR03 S/B = 000000 

JBR IK "Z" DID NOT SET 
;BR IF "C" SET OK 

JERROR - COM OR ADC FAILED 
;LCCK ON HARD ERPOk 



******************************************************************** 

. SBTTL BT012 "MUV #ti / R" TEST WITH N-l 77777 . CPJ = 000000 
************* ******************************************************* 



BT012: 
1012: 



E012: 



CLP 
CCC 



COM 
SEQ 



K-l/RO 



RO 

BT013 



HALT 

BR 



/MAKE CR03 r 000000 
JMAKE N:C=0000 

/TEST THE MOV - CR03 S/B = 177777 

/MAKE c:?oi = 000000 
J BP IF "Z" SFT 

;ERROR - MOV FAILED TO LOAD R0 WITH ALL l'S 
JLOCK ON HARD ERROR 



3T012 

******************************************************************** 

.SBTTL BT013 "MO V p,R" TEST WITH N=OC00O0.CH3=177777 

*********************************** ************************* 



********** 



BT013: 



1013 : 



E013! 



CLR 
COM 
CCC 



CUM 
ADC 

9EQ 

HALT 

BR 



RO 
RO 



WO/^0 

RO 
RO 

BT014 



JMAKK CR07 = 000000 

;make cro] = 177777 
; scope sync 



/TEST THE MOV 



CRO! S/B = OOOCOO 
C" 



PT013 

************** ****** ********* 



. SETTL BT014 "CLR ( R )" TEST 
************** ******************** 



;MAKE CU03 = 177777, SET 
JMAKE CR01 = 000000 

;br if "z" cct set 

; error - mov failed to clear po 
jlock on hard erpop 

t************************************** 

CR3 = 177776 



t ** * * **** i 



BT014: 



MOV 
MOV 
SCC 



002060 005010 



jfSTACK.SP 
»ps.,rO 

(RO) 



***************************** 

JSFT UP STACK POINTER 

;ro points to rsw 

/MAKE CPSW3 = 017 

/TEST THE CLP - IT SHOULD CLEAR PSW 
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MACY11 30A(1052) 15-NOV-78 
BT014 "CLR ( R )" TEST - CR3 



15:26 PAGE 30 
• 177776 



SEQ 0029 



1437 
1438 
,439 
1440 

144? 
.443 
.444 

447 
448 
449 

.ti? 

1452 

53 

H 
_ 55 
1456 



1459 
1460 
461 

_rJ 

1464 
465 
" 466 
1467 
.468 
.469 
' 470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
.481 
.482 
.483 
484 
485 
486 
1487 

1® 
490 
491 
1492 



002062 001002 



002064 000000 
002066 000767 



002070 012700 177776 

002074 000277 

002076 005020 

002100 001002 

002102 000000 

002104 000771 

002106 005700 



002110 001402 

000000 
000765 



0021.12 OOOfiOO 
002114 



0021.16 
002122 

002124 

02126 
002130 
002132 
0021.34 

002136 
002140 
002142 



002144 
002150 
002152 



012700 177776 
000257 

005110 

100003 
001002 
102001 
103403 

005010 
000000 
000765 



012700 177776 

005010 

000257 



002154 005120 



002156 
002160 



100003 
001002 





BNE 


3T015 


;BR IF CLR MADE "Z" = - IT SHOULD 


E014: 


HALT 

BR 


BT014 


;ERROR- CLR FAILED TO CLEAR PSW 
/LOCK ON HARD ERROR 


; ************ 






.SBTTL BT015 "CLR (R)+" TEST - CR3 = 177776 
• ***************************** •*••*•**** ********************* ••***•** 


BT015: 


MOV 
SCC 


!-PSW,P0 


;R0 POINTS TO PSW 
JMAKE CP3W3 = 017 


1015: 


CLR 


(R0) + 


JTEST THE CLR - IT SHOULD CLEAR PSW 




BNE 


A015 


;BR IF CLR MADE "Z" = - IT SHOULD 


E1015A: 


HALT 

BR 


BT015 


JERROR- CLR FAILED TO CLEAR PSfc 
JLOCK ON HARD ERROR 


A015: 


TST 


RO 


;AUTO INC SHOULD ZERO 30 




BEQ 


BT016 


JBR IF IT DID 


E2015: 


HALT 

BR 


BT015 


JEFR09 - 4UT0INC. FAILED 
/LOCK ON HARD ERROR 


• ************ 


***********i 


******************************************** 


•SBTTL BT016 "COM 
• ************************ 


( P )" TEST - CRT = 177776 
************************** ****************** 


BT016: 


MOV 
CCC 


(fPSW,R0 


;R0 POINTS TO PSW 

;make cpsw3 = ooo 


1016: 


COM 


(RO) 


/TEST THE COM - CPSh] S/B = 357 




8PL 
BNE 
BVC 
BCS 


E016 
E016 
F.016 
BT017 


;n:c=iiii ? 


E016: 


CLR 
HALT 

BR 


(RO) 
RT016 


;GO TI) KERNEL MODE 

JERROR - COM FAILED TO MAKE CPSW3 = 357 
JLOCK ON HARD ERROR 


• ************************ 


******************** a******************* •**• 


. SBTTL BT017 "COM 
• ******************* ***«i 


(R0)+'< TFST - CR03 = 177776 
» ********** ********************************** 


BT017: 


MOV 
CLR 
CCC 


#PSW,RO 
(PO) 


;ro points to psw 
;make cpsw3 = ooo 

;SC0PE SYNC 


1017: 


COM 


(S0) + 


;TEST THE COM - CPSW3 S/B = 357 




BPL 

BNE 


EA017 
EA017 


;n:c = nil ? 
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BT017 "COM <R0)+" TEST - CR03 = 177776 



SEQ 0030 



1493 
1494 
1495 
1496 
1497 
1498 

\k 
im 

1503 
1504 
1505 
1506 
1507 
1508 

ti 

1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 

\ffl 
1524 
1525 
1526 
1527 
1528 
1529 
1530 

m 



15< 
15" 

is; 



1540 

im 

1543 
1544 
1545 
1546 
1547 
1548 




502232 
302234 



002266 
002270 



002272 
002274 



012700 
005010 
005000 
005001 
005101 
000257 

010100 

100402 

000000 
000765 

OOblOO 
001402 

nm 



010100 
001402 



000000 
000770 



177776 



177776 



177776 



EA017: 



A017: 



E2017: 



9VC 
BCS 

MOV 
CLR 
HALT 

BR 

COM 
ADC 
PSQ 

MOV 
CLR 
HALT 
BR 



aW 

HIV* 1 
BT017 

ff8 

PT020 

«PSW,R1 
(Rl) 

BT017 



>COM FAILED TO SET ALL FLAGS 
;LOCK ON HARD ERROR 

;SHOULD MAKE CP03 = 172727 
JSHOULD MAKE CR03 = OOOOOO 



;ERROR - COM FAILED TO AUTO INC. RO 
;L0CK ON HARD ERROR 



******************************************************************** 

. SBTTL BT020 "MOV R A#RB" TEST - «(ITH CR A3=177777 t CRB3=0Q00Q0 
******************************************************************** 



/MAKE C«03=Q00( 
;MAKE CRp = O0Oi 
;MAKE CRl3=020l 
;SCOPE SYNC 



BTO20: 


MOV 


«>SW,R0 




CLR 


$5" 




CLR 






CLW 


Rl 




C3M 


Rl 




CCC 




1020: 


MOV 


R1/R0 




BMI 


A020 


EA020: 


HALT 






9H 


BT020 


A020: 


CUM. 


RO 




BEQ 


BT021 


E2020: 


HALT 






BR 


RT020 



;TEST THE MOV 

J BR IF "H" CCT SET 

;ERROR-HOV FAILED TO SET "N" 
;LOCK ON HARO ERROR 

;CR03 SHOULD GO TO 000000 
;BR IF IT DID 



>ERROP-MOV FAILED 
;LOCK ON HARD ERR 



TO LOAD RO WITH l'S 
OR 



♦•a*************************************************** ************** 

SBTTL BT021 "MOV RA,RB" TEST WITH tRA3=0gg000#CRB3=177777 

******* ****************** ******************** ******* ********* 



****** ******** 



BT021: 



1021: 



EA021; 



ShB 

CLR 
CCC 

MOV 

BEQ 

HALT 
BR 



RO 
RO 
Rl 



R1,R0 
A021 



;MAKE CR13=600000 

;scope sync 

?test the mov 

;br if "z" got set 

;mov failed to SET "Z" 

JLOCK ON HARD ERROR 



CQKDA-C KD11-K BASIC LOGIC TESTS 
CQKDAC.PU 07-NOV-78 14:09 



1549 
1550 

\m 

p 

1555 
1556 
15&2 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 

iifo 

m 

1573 

P 
1576 

1577 

P 
1580 
1581 
1582 

mi 

1.585 

1 

[589 



, j92 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 



1603 
1604 



002276 
005300 
002302 



304 
306 



002334 
002340 
002344 

002346 

mi® 

002354 
002356 

881112 

002364 
002366 

002370 
002372 



302374 
502400 
502402 



005100 

88!18S 

000000 
■ 3763 



0001 




000257 

012737 000017 177776 



012700 177776 



OJ^OJj 000017 



010120 

io£88| 

102001 
103402 

000000 
000764 

005700 
001402 

000000 
000760 



J270C 
5215 
00027 



177776 
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BT021 "MOV RA/RP" TEST WITH CRA3=000000/CRB3=177777 



SEQ 0031 



A021: 


COM 
ADC 

BEQ 


RO 
RO 

PT022 


;SHOULD MAKE CR03=177777 AND SET "C" 
; SHOULD MAKE CR03=000000 
J BR IF "Z" SET 


E2021: 


HALT 
3R 


BT021 


;MOV FAILED TO ZERO RO 
JLOCK ON HARD ERROR 


. ******************************************************************** 

•SBTTL BT022 "MOV *N/8tA" TEST WITH N=17. A*177776 
. •***•**••** ••****{**••***•*•{***** ********* ************************* 


BT022: 


CCC 




;MAKE CPSW3=000 


1022: 


MOV 


ftl7,0#PSW 


JTEST THE MOV 




BPL 
BNE 
BVC 
8CS 


E022 

E022 
BT023 


;N:C=1111 


E022: 


HALT 

BR 


BT022 


;MQV FAILED TO LOAD PSW 
JLOCK ON HARD ERROR 


• ****************************************************** ******** ****** 

J *.****.*^.*.$*2**.**^**.2.^^ 


BT023: 


MOV 
MOV 
CCC 


#PSW,RC 
#17, Rl 


JRQ POINTS TO PSW 
>CSOURCE3=017 

;SCOPE SYNC - MAKE <N:C> = 0000 


1023: 


MOV 


R1,(H0)* 


;TEST THE MOV 




BPL 

RNF! 
BVC 
BCS 


EA023 
EA023 
EA023 
A023 


>n:c = 1111 ? 


EA023: 


HALT 

BR 


BT023 


;MOV FAILED TO LOAD PSW 
;LOCK ON HARD ERROR 


A023: 


TST 

PEQ 


RO 

BT024 


;DID AUTO INC MAKE RO GO TO 0? 
;br IF IT DID 


E2023: 


HALT 

BR 


BT023 


;MOV FAILED TO AUTO INC. RO 
;LOCK ON HARD ERROR 



************************************************************** ****** 

.SBTTL BT024 "CMP P#8&A" TEST WITH N = (A) 
******************************************* *•*•*•< 



»•*•***•*•**•••**••* 



BT024: 



MOV 
CLP 
273 



»PSW,R0 
(RO) 



;R0 POINTS TO PSW 
;MAKE CPSW3=000 
>MAKE N:C=1011 
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1605 
1606 
1607 
1608 
1609 
1610 

im 
ith 

1615 
1616 
1617 
1618 
1619 
1620 
1621 
1625 
1623 
1624 
1625 
1626 
16i7 
1628 
1629 
1630 
16*1 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 

Mi 

1647 
1648 
1649 
1650 
16bl 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 



002404 022737 
002412 001402 



002414 000000 
002416 000766 



002420 000257 

002422 022737 

002430 001101 

002432 000402 

002434 000000 

002436 000770 



002440 000277 
002412 022737 



002450 001401 
002457 000402 



002454 
002456 



COOOOO 
000770 



000000 177776 



002460 012700 177777 
002464 000257 



002466 C2C027 
002477 001402 



002474 000000 
00i476 000770 



002500 012700 000001 
002504 000764 



002506 020027 177777 
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BT024 "CMP #N,(4#A" TEST WITH H=(A) 



000013 177776 1024: 



CMP 

BEQ 



E024: HALT 

BR 



#13/@#PSH 
BT025 

BT024 



JTEST THE CMP 

>BR IF "Z" GOT SET 



;CMP FAILED TO SET "Z" 
;LOCK ON HARD ERROR 



**** *•*•*****•••***•****••*•**•* **************************** ***** •** 



• *********** 

BT025: CCC 



t ********* ******* ****** 



000017 177776 1025: 



E025: 



BSQ 
PR 



HALT 

HR 



&17/0&PSW 



E025 
PT026 



;MAKE CPSW3=0O0 
/TEST THE CMP 



; BR IF "Z" GUT SET 
>GO TO NEXT TEST 



;CMP FAILED TO CLEAR "Z" 
SLOCK ON HARD ERROR 



BT025 ibUtIV UT (1J4KU CiltKllli 

*********************************************************** ********* 

• SBTTL BT026 "CMP #N,fl#A" WITH N < (A) 

>•*••**•*****• *********************** ************************** 



BT026: 
1026: 



SCC 
CMP 



BEQ 
BR 



HALT 

BR 



#0,»#PSVi 



E026 
BT027 



/MAKE CPSW3=017 

JTEST THE CMP 

}BR IF "Z" GOT SET 
;GO TO NEXT TEST 

;CMP FAILED TO CLEAR "Z" 
?LCCK ON HARD ERROR 



************** 
******* 



BT026 

************************** ************************** 

S!?TTL BT027 "CMP R.#N" TEST WITil CR3=N 

*************** ******** ****** ************************** ****** 



BT027! 



1027: 



E027: 



MOV 
CCC 



CMP 

BEO 



t-l/RO 

R0,((-1 

PT03 



;MAKE CP03-=177777 
>N:C=0000 



;TEST THE CMP 

;BR IF CMP SET "Z" 



HALT 

BR 



;CMP FAILED 
;LOCK ON HARD ERROR 



BT027 

******************* ************ ****************************** ******* 

•SBTTL BT030 "CMP R/»N" TEST WITH CR3 > N 

******************* *****************************4 



PT030 
1030: CMP 



MOV 
SKZ 



n , r o 
po,?-i 



;MAKE CR03=000001 
;SET THE "Z" BIT 



;TEST THE CMP 
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BT030 "CMP W/SN" TEST WITH CRD > N 



1661 
1662 
1663 
1664 

\ffi 
1667 

m 

1671 

lift 

1675 
1676 
1677 
1678 
1679 



1682 
1683 

ill* 

1688 

ml 
\n\ 

1693 
1694 
1695 
1696 

tisi 
w 

1703 



002512 001002 

002514 000000 
002516 000770 



002520 012700 000001 
002524 000264 



002526 020C27 000017 
002532 001002 



002534 
002536 



002560 
002562 



00 



002570 
002572 



002574 
002576 



000000 
000770 



002540 01 

002544 01 

002552 0121Q1 

002556 000257 



llffi UllVi 177776 
12701 000340 



022001 
001402 



000000 
000764 



305700 
301402 



000000 
000760 



9NE 



E030: HALT 

. *************** 

. SBTTL BT031 "CMP 
. ****** **************** **** 



BT031 
>* 



;BR IF CMP CLEARED "Z" 

;CMP FAILED 
JLOCK ON HARD ERROR 
************************************************* 



TEST WITH CR3 < N 



BT031: 


MOV 

SEZ 


#1,R0 


;MAKE CR03 = 000001 
;SET THE "Z" BIT 


1031: 


CMP 


S0/#17 


>TEST THE CMP 




BNE 


BT032 


?BR IF CMP CLEARED "Z" 


E031: 


HALT 

3R 


PT031 


;CMP FAILED TO SET "Z" 
>LOCK ON HARD ERROR 


. •*• ******************* ********************************************** 

.SBTTL BT032 "CMP (RA)*»RB" TEST WITH CSOURCE 3=CRB3 
. *********** *********** **************************************** ****** 


BT032: 


MOV 
MOV 
MOV 
CCC 


#PSW,R0 

mm™ 


;rq POINTS TO psw 
JMAKE CPSW3=340 
;MAKE CDEST3=340 
;N:c=0000 


1032: 


CMP 


(R0)*,R1 


>TEST THE CMP 




BEQ 


A032 


;BR IF "Z" GOT SET 


EA032: 


HALT 

BR 


BT032 


;CMP FAILED TO ACCESS PSW 
;LGCK ON HARD ERROR 


A032: 


TST 

BEQ 


RO 

BT033 


;"Z" SHOULD SET 
;BR IF "Z" SET 


E2032: 


HALT 

BR 


BT032 


;CMP FAILED TO AUTO INC. RO 
;LOCK ON HARD ERROR 



m 



7l 
714 
715 
716 



002600 012700 177776 

002604 012737 000340 

mm nm\ 000330 

002670 022001 

002622 001002 



922624 
002626 



000000 
000764 



ET033: MOV #PSW/R0 ;R0 POINTS TO PSW 

177776 MOV #340,»§PSW /MAKE CPSW3=340 

MOV I330/R1 ;MAKE CDEST3=330 

SEZ ;SET THE "Z" BIT 

1033: CMP (R0)+/R1 ;TEST THE CMP 

BNE A033 ?BR IF "Z" GOT CLEARED 

EA033: HALT ;CMP FAILED TO ACCESS PSW 

BR BT033 ;LOCK ON HARD ERROR 
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mi 

1719 
720 



Vi\\ 88i 



172? 
1724 

1727 
1728 



1732 

1734 
1735 
1736 
1737 
173B 
1739 
1740 
1741 

ml 

1744 
1745 
1746 
1747 
1748 

m 

1751 
1752 
1753 
1754 
1755 
1756 

\ffl 
1759 
1760 
1761 
1762 
1763 
1764 

mi 

1767 
1768 
1769 
1770 
1771 
1772 



002630 005700 
002632 001402 



002660 

002662 

002664 
002666 

002670 
00267? 

002674 

-5?"-' 



002714 
002716 



002734 
002736 



002640 01270C 
002644 01273* 



mm mm 000340 



022001 
001002 
000000 

000764 

005700 
001402 

000000 
002676 000760 



002710 
002712 001402 



000000 
000770 



000000 
000770 



177776 

000330 177776 



002700 012700 125252 

mm mm 

020100 



002720 012700 025252 

002724 005001 

002726 000264 

002730 020100 

002732 001002 
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BT033 "CMP ( RA)+/RB" TEST WITH CSOURCE3>CRB3 



SEQ 0034 



A033: 



TST 
BEQ 



RO 

BT034 



j"Z" SHOULD SET 
;BR IF "Z" SET 



E2033: HALT JCMP FAILED TO AUTO INC. RO 

BR BT033 JLOCK ON HARD ERROR 

. ******************************************************************** 

.SBTTL BT034 "CMP (RA)+/RB n TEST WITH CSOURCE3<CRB3 
******************************************************************** 

JRO POINTS TO PSW 
/MAKE CPSW]=330 
/MAKE CDEST3=340 
;SET THE "Z" BIT 

JTEST THE CMP 

JBR IF "Z" GOT CLEARED 

;CMP FAILED TO ACCESS PSW 
;LOCK ON HARD ERROR 

J"Z" SHOULD SET 
JBR IF »Z" SET 



BT034: 

1034: 

EA034: 
A034: 



MOV 
MOV 
MOV 
SEZ 

CMP 

BNE 

HALT 

BR 

TST 

BEiJ 



jfPSH/RO 

l330/g#PSW 

#340,R1 



(R0)*,R1 
A034 



RO 

HT035 



E2034: HALT 
BR 

. **************** 



ETQ34 
***** 



*********** 



*********** 



SP.TTL BT035 "CMP RA.RB" TEST WITH CRA3 
*************************************** 



CMP FAILED TO AUTO INC. RO 
LOCK ON HARD ERROR 
****************** 

CRB3 



a****************** 



BT035: 



1035: 



E035: 



MOV 
MOV 
CCC 

CMP 

BEQ 



#125252, RO 
R0,R1 



R1,R0 
RT036 



*************************************** 

J MAKE CR03 = 125252 
JMAKE CR13 = 125252 
JSCOPE SYNC 

;TEST THE CMP 

;BR IF "Z" GOT SET 

;ERROR - CMP FAILED TO SET "Z" 
;LOCK ON HARD ERROR 



HALT 

BR BT035 _ _ 

*********************************************************** 

. SBTTL BT036 "CMP RA.RB" TEST WITH CR A3 < CRB3 
******************************************************************* 



BT036: 



1036! 



MOV 
CLR 

SEZ 

CMP 
BNE 



|25252,R0 



;MAKE CS03 = 25252 
JMAKE CRM = 000000_ 



E036: HALT 
BR 

• ************** 



Rl/RO 
RT037 

BTQ36 
***** 



JSCOPE SYNC - SET 
JTEST THE CMP 
JBR IF "Z" GOT CLEARED 
J ERROR - CMP FAjtjgEjj T0 SET " 2 " 

************* ***..*2..**8. ************************ 
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1773 
.774 
775 
776 
777 
.778 
1779 
.780 
.781 
.782 
783 
784 
785 
786 
787 
788 
789 
790 

m 

793 

tft 

796 
797 



Wi 

804 
805 
806 
807 
808 
809 

Si? 

m 
m 

Ji 6 7 
1818 
"9 

1 



.825 

.827 
.828 



002740 
002742 
002746 

002750 

002752 

002754 
002756 



002760 
002764 
002766 
002770 



002772 

002 
003 



J03002 
)03004 



005000 
012701 
000264 

020100 

001002 

000000 
000770 



012700 
005010 
005001 
000277 

011001 

mm 
mm 



000017 



177776 



000017 



MACY11 30AQ052) 15-N0V-78 15:26 PAGE 36 
RT037 "CMP R A/RB" TEST WITH CRA3 > CRB3 



SEQ 0035 



BT037: 



1037: 



E037: 



CLR 


RO 


MOV 


#17, Rl 


SEZ 




CMP 


R1,R0 


BNE 


BT040 


HALT 




BR 


BT037 


********************* 



J MAKE CR03 = 
JMAKE CR13 



300000 



_ _ )00017 

; SCOPE SYNC - SET " 



Z" 



JTEST THE CMP 

JBR IF "Z" GOT CLEARED 

; ERROR - CMP FAILED TO SET "Z" 
;LOCK ON HARD ERROR 



******* 



SBTTL PTQ40 "MOV (RA),RB" TEST WITH E$QURCE3=CRB3=17 
***************************************************** 



******** 



BT040: 



1040! 



E0 40: 



MOV 
CLP 
CLR 
SCC 

MOV 

CMP 

BEQ 

HALT 

BR 



»PSW,R0 
[ ? 0, 



(R0)/R1 



bt( 



fi 7 



******** ******** 



******** 



JRO POINTS TO PSW 
JMAKE CPSW3=00Q 
;MAKE CR13=000000 

;make n:c=H11 
jtest the mov 

jdid rl get loaded with 000017 ? 
jbr if yes 

jmov failed to load rl 
jlock on hard 

***** 



(*•*****•**] 



****** * 



SBTTL PT041 "MOV (RA)+,RB" TEST WITH CSgURCE3=CRB3=17 
****************************************************** 



******** 



003006 

mm 

003016 


012700 
005010 
005001 
000277 


177776 


BT041: 


MOV 
CLR 
CLR 
SCC 


*PSW,R0 
ll 0) 


JRO POINTS TO PSW 
JMAKE CPSW3=Q00 
JMAKE CR13=000000 
JMAKE N:C=1111 


003020 


012001 




1041: 


MOV 


(R0)*,R1 


JTEST THE MOV 


003022 
003026 


020127 
001402 


000017 




CMP 

BEQ 


A***? 17 


JDID Rl GET LOADED WITH 000017 
J BR IF YES 


003030 
003032 


000000 
000765 




EA041: 


HALT 
BR 


BT041 


JMOV FAILED TO LOAD Rl 
JLOCK ON HARD ERROR 


003034 
003036 


005700 
001402 




A041: 


TST 

BEQ 


RO 

BT042 


J"Z" SHOULD SET 
JBR IF "Z" GOT SET 


8838*2 


000000 
000761 




E2041: 


HALT 
BR 


BT041 


JMOV FAILED TO AUTO INC. RO 
JLOCK ON HARD ERROR 



******************************************************************** 

.SBTTL BTQ42 "XOR RA,RB" TEST WITH CRA3 = CRB3 = 000000 
t********* ************************************ *************** 



•***«**•***< 



CQKDA-C KD11.-K BASIC LOGIC TESTS 
CQKDAC.P11 07-NOV-7P 14:09 



MACY11 30A(1052) 15-N0V-78 15:26 PAGE 37 
BT042 "XOR RA,RB" TEST WITH CRA3 = CRB3 = 000000 



SEO 0036 



18 4? 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1956 
1857 
185? 
1859 
I860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1371 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1980 
1381 
1882 
1883 
1884 



003044 
003046 
003050 



003054 
003056 



3060 
)06? 



003064 
003066 
003079 
003072 



03102 
0031.04 



003106 
0C3112 
003116 



003122 
003126 



003130 
00313? 



003134 
003140 
003144 

003146 

003150 



005000 
005001 
000257 



003052 074100 



003076 
003 1.00 



005700 
001402 



000000 
000770 



005C00 
005100 
010001 
000257 



003074 074100 



005700 
001402 



000000 
000767 



012701 
012700 
000257 



003120 074100 



020027 
001402 



000000 
000400 



012700 

mm 

074100 
02 0C27 



BT042: 



1042! 



K042: 



CLR 
CLR 
CCC 

XOR 

TST 

BEQ 

HALT 

3R 



H1,R0 



RO 

BT043 



BT042 
************** 
.S 

»**«**• 



/MAKE CR03 = 000000 
;MAKE CR13 = 000000 
>SCOPE SYNC 

/TEST THE XOR 

;RESULT = 000000 ? 
;br IF YES 

;XDR FAILED 



SBTTL BT043 "XOR RA / RB" TEST WITH CRA3 = CRB3 = 177777 
************ ************************************* ****** 



******* 
******** 



BT043! 



■:043! 



CLR 
COM 
MOV 
CCC 

XOR 

TST 

BEQ 

II ALT 

BR 



RO 
RO 

R0/R1 
R1,R0 
R?044 



/WAKE CR03 = 177777 

JMAKE CR13 = 177777 
;SCOPE SYNC 

JTEST THE XOR 

;RESULT = 000000 ? 
;BR IF YES 

;XOR FAILED 
;LCCK ON HARD ERROR 



BT043 

*• * ***********•******••*•*•**••••*•**•**•••*******•**•****••«**•*•*•* 

38TTL BT044 "XOR RA.RB" TEST WITH CRB3=052525 t CRA3=125252 

***** ************** **************************************** 



125252 
052525 



**********< 

r044: MOV 
«ov 

CCC 



CMP 

3EQ 

)44: HALT 

3 R 

**••**•••*•*** 



»*****••*•*•* 

#125252,R1 
?052525/R0 

Rl/RO 

;XOR FAILED 
8T045 JLCCK ON HARD ERROR 

******************** ******** ******** ****** ****** * ****** 



;«AKE CR13=125252 
;MAKE CR03=052525 

; scope sync 
;test the xor 

JRESULT = 177777 ? 
;BR IF YES 



•SBTTL BT045 "XOR RA.RB" TEST «TH CR A3=052525,CRB3=125252 
*********************************** ************** ************* 



125252 
052525 



177777 



BT045: 



MOV 
MOV 
CCC 

1045: XOR 
CMP 



#125252, RO 
#052525, Rl 



H1/R0 
R0,*-1 



;MAKE CR03=125252 
/MAKE CR13=052525 
; SCOPE SYNC 

;TEST THE XOR 

>RESULT = 177777 ? 
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003154 001402 
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BT045 "XOR RA/RB" TEST WITH CRA3=052525,CRB3=125252 



SEQ 0037 



003156 
003160 



000000 
000765 




074100 
074200 
074300 
074400 
074500 
005100 

001402 

goooog 

000753 

020627 
001402 

000000 
000746 



BEQ 



HALT 
BR 



8T046 



;BR IF YES 



;XOR FAILED 

;LOCK ON HARD ERROR 



***************************************************************** 

. SBTTL BT046 GPR ADDRESS INTERRACTION TEST 
************** ********** ****************************************** 



125252 



001000 



1046: 



EA046: 
A046: 

E2046: 



MOV 
MOV 
COK 
MOV 
COM 
MOV 
COM 
MOV 
COM 
MOV 
COM 

XOP 
XOR 

xon 

XOR 
XOR 
COM 

BEQ 

HALT 

P.R 

CMP 

BEQ 

HALT 

BR 



£0/ 2 R 5 P' R ° 

Rl 

R1/R2 

rL«3 
R j 

R3/R4 
R4 

R4/R5 

R5 

Rl/RO 
R2/R0 
R3/R0 
R4/R0 
R5,R0 
RO 

A046 

8T0'6 

SP,#STACK 
BASIC 



JCP01 = 125252 

;CR13 = 052525 

;tR23 = 125252 

;CR33 = 052525 

;CR43 = 125252 

;CR53 = 052525 

;CR03 S/B = 177777 

;CR01 S/B = 125252 

;CR03 S/B = 177777 
>CR03 S/B = 125252 
;CR03 S/B = 177777 

;CR0J S/B = 000000 

)BR IF CR03 HAS 000000 

;GPR ADDRESSING PROBLEM 
;LOCK ON HARD ERROR 

;DID R6 GET DISTURBED 
;BR IF NOT 

JR6 ADDRESS PROBLEM 
;LOCK ON HARD ERROR 
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5 

. 6 

m 

1929 

930 



934 
935 

llf 

938 

m 

941 
942 

l\l 

945 

3tt 
?*! 

m 
m 

954 
955 
956 

112 

959 
960 

m 

963 
964 
965 

968 

m 

Vi\ 

973 
974 
975 
976 
977 
978 



003246 
003252 
003256 
003262 
003 — 
003 
003_. 

88II0S 
00331C 



003316 

mm 

mm 

003326 
003330 



003332 
003332 
003336 

003340 

003342 

003344 
003346 



003350 
003350 
003354 

003356 
003356 

003360 
003362 



mm 

005037 
012701 
005021 
020127 
001374 



37 



001001 

000402 



000000 
000773 



in 



001402 



000000 
000774 



063254 

00101- 



5 P 
126 



00111 
063236 

063254 



0010 
0040 
1777 



m g 000000 



001002 



000000 

000774 



012700 000001 
000264 



700 000002 
264 



177770 
001074 
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BT046 GPR ADDRESS INTERRACTION TEST 

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

- ////// BASIC INSTRUCTION TESTS ////// 

xxxxxxxxxxxxxxxxx 



SEQ 0038 



;xxxxxxxxx 

BASIC 



INIT: 

1$: 



CLR 
CLR 
CLR 
MOV 
CLR 
CMP 
BNE 
MOV 
MOV 
MOV 



cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ONCE /SIGNAL PROGRAM HEADER TQ BE PRINTED 

SERTTL ;CLEAR ERROR COUNT FIRST TIME THROUGH 

SPASS JCLEAR PASS COUNT FIRST TIME THROUGH 

IFLG/R1 ;SET UP TO INIT. COUNTERS AND FLAGS 

■+ ;CLEAR ONE WORD 

ONCE JCLEARED ALL FLAGS AND COUNTERS? 

;BR IF NOT 

>SET UP THE STACK POINTER 
;SET SCOPE SYNC FOR COND CODE OPERATE 
;FLAG CURRENT STACK POINTER TO BE TYPED 
JIN FIRST ERROR CALL 



tRl >♦ 



STACK,SP 

4030,«#UBREAK 

-l,§|fftEG5 



**••*•*•*** ******************* ************************** ******* 

************************ 



••TEST BASIC "BNE" TEST WITH Z=0 

. . *************************************** 

TSTO 



1$: 
2$: 

3$: 



MOV 

CCC 



HALT 
BR 



#0,R0 



IS 



;JLOAD RO WITH TEST NUMBER 
>MAKE Z=0 

>;TEST THE BNE - IT SHOULD BR 

;BNE FAILED TO LOAD PC 
JLOCK ON HARD ERROR 



• . *************************************************************** 

;*TEST 1 BASIC "BNE" TEST WITH Z = l 

*************************************************************** 

TST1: 

#1/R0 



1$: 
2$: 



3$: 



MOV 

SEZ 



BNE 
BR 



HALT 
BR 



3$ 

TST2 
1$ 



>jload ro with test number 
>set the "z" bit 

jtest the bne - it should not br 

;;go to next test 

;bne brinched with z=i 
;lock on hard error 



****** ********************** •****•*•***••* ************ ********* 

************* 



;*TEST 2 BASIC "BEQ" TEST WITH Z=l 

'.**************** ************ ********************** 

TST2: 



IS: 
2$: 



MOV 

SEZ 



BEQ 



3$ 



: HALT 
BR 

************* 



#2,R0 ;;LOAD RO WITH TEST NUMBER 

;MAKE Z = l 

TST3 >;TEST THE BEQ - IT SHOULD BR 

;BEQ FAILED TO LOAD THE PC 
IS }LOCK ON HARD ERROR 

************************************************** 



CQKDA-C 
CQKDAC.P 
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003370 000257 

003372 001401 

003374 000402 

003376 000000 

003400 000773 



003414 
003416 



003420 
003422 



003424 



mm 



012700 000003 



003402 
003402 

003406 

003412 000270 



012700 
005037 



000004 
177776 



100001 
000402 



000000 
000771 



mm mm «w 

003434 000257 

mm 
m 



100002 



440 OOOOOC 
442 000772 



012700 000006 
705 177776 



m 



460 OC 

003462 011503 

003464 020327 000017 

003470 001402 
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T3 BASIC "BEQ" TEST WITH Z=0 

J*TEST 3 BASIC "BEQ" TEST WITH Z=0 

********************************************************* ***»*< 

TST3 : 

MOV #3/R0 
CCC 



SEQ 0039 



1$: 
2$: 



BEQ 
BR 



3$ 

..*************************************************************** 

;*TEST 4 BASIC "BPL" TEST WITH N=l 

i. **************************************** *********************** 

TST4: 

MOV #4 Z R0 ;;LOAD RO WITH TEST NUMBER 

CLR §#PSW ;CLEAR THE PSW 

SEN ;MAKE N=l 



HALT 

BR 



3S 

TST4 
IS 



;;LOAD RO WITH TEST NUMBER 
;MAKE Z=0 

;TEST THE BEQ - IT SHOULD NOT BR 

>;CO TO NEXT TEST 

;BEQ BRANCHED WITH Z=0 
JLGCK ON HARD ERROR 



IS: 
2$: 



3$: 



BPL 

BR 



HALT 
BR 



3$ 

TST5 
IS 



JTEST THE BPL - IT SHOULDN'T BR 

;;GO TO NEXT TEST 

;BPL BRANCHED WITH N=l 
?L0CK ON HARD ERROR 



..*************************************************************** 

;*TE5T 5 BASIC "BPL" TEST WITH N = 

• . *S************************************************************* 

TST5: 

MOV #5,R0 ;;LOAD RO WITH TEST NUMBER 

CLR §#PSW ;CLEAR THE PSW 

CCC ? SCOPE SYNC 



IS: 
2$: 
3$: 



BPL 



HALT 

BR 



TST6 



IS 



JJTEST THE BPL - IT SHOULD BR 

;BPL FAILED TO LOAD THE PC 
;LOCK ON HARD ERROR 



• • *************************************************************** 

?*TEST 6 BASIC "MOV (RA) #RB" TEST - <RA)=17777§ 

. • *************************************************************** 

TST6 : 

#6,R0 JJLOAD RO WITH TEST NUMBER 

|PSW,R5 ;SOURCE ADDR = 177776 

(R5) ;MAKE CPSW3=00Q 

R3 ;CDEST3 = 000000 

;MAKE CPSW1=017 



IS: 
2$: 



MOV 
MOV 
CLR 
CLR 
SCC 

MOV 

CMP 

BEQ 



<R5),R3 

R3 4 
TSl 



R3 ff 17 



;TEST THE MOV 



;CORRECT RESULT ? 
;;BR IF YES 
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2035 



2038 
2039 

as 

1813 

2045 
2046 
2047 
2048 

%n 

2051 

2054 
2055 
2056 
2057 
2058 
2059 
2060 

im 

2063 
2064 
2065 
2066 
2067 

w 

2070 
2071 
2072 
2073 
2074 
2075 

m 
wa 

2080 
2061 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 



w mm mm 



mm 

mm 

003512 
003520 

003522 

003524 

003526 
003530 



003532 
003532 



003564 
003564 
003570 
003574 
003576 

003600 

003604 

003606 
003610 

003612 
003614 



012700 000007 

mm mm 

012737 125252 



000257 

020412 

001402 

000000 
000770 



012700 00001C 

003536 012702 063312 
04 g 000 - 

37 P633 - 



i mi 



00354 

00354. -- A --- 

003552 006264 

003554 020412 

003556 001002 

mm mm 



012700 

Mli 

000257 

022703 

001402 

000000 
000771 

020403 
001402 



000011 
125252 



125252 



063312 
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T6 BASIC "MOV (RA),RB" TEST - (RA)=177776 



;ERROR-MOV FAI 

****************************** 



3S 
** 

TST7: 

1$: 
2$: 



HALT 

BR 



************** 
*•*•*• 



3S 



MOV 
MOV 
MOV 
MOV 
CCC 

CMP 

BEQ 

HALT 

BR 

*********** 



S7*R0 



;>LOAD R0 WITH TEST NUMBER 



JJLOAD ... 

i"&gFQ*R2 /DEST ADDR = M80FQ 

h25252,R4 ; RESULT S / B = 125252 

1125252, @#MBUF0 JMAKE CDEST3 = 125252 
>MAKE N:C=0000 



R4,(R2) 
TST10 



/TEST THE CMP 

;>BR IF "Z" GOT SET 

;ERROR - CMP FAILED TO SET "Z» 



;*TEST 10 BASIC "CMP RA#(RB>" TEST - CRA3 HOT EQUAL TO CDEST3 

•• *************************** ************************ ************ 

TST10: 

>;L0AD RQ WITH TEST NUMBER 
;DEST ADDR = MBUFO 
;RESULT S / B = Q0Q001 
;MAKE CDEST3 = 000000 
JMAKE N:C=0100 



IS! 
2S! 

3S: 



MOV 
MOV 
MOV 

CLR 
SEZ 

CMP 

BNE 

HALT 

BR 



»10,R0 
♦MBUFO, R2 



BUFO 



R4,(R2) 
TST11 



IS 



>test the cmp 

>;br if m z" got cleired 



;ERROR - CMP FAILED TO CLR 
JLOCK ON HARD ERROR 



»Z" 



•J*************************************************************** 

j'TEST 11 BASIC "CMP #«,«" TEST - N = CR3 

• • ******** *********** *•* A*********************** ***************** 

TSTll: 

" '"" [LOAD RO WITH TEST NUMBER 



003616 000000 



IS: 

2$: 

3$: 
4$: 
5$: 



MOV 
MOV 
MOV 
CCC 

CMP 

BEQ 

HALT 

8R 

CMP 

BEQ 



»il,R0 
|12§252,R4 



#125252,R3 
4S 



1$ 

R4,R3 
TST12 



;/LU«U KU 

;RESULT S / B = 125252 
;CDEST3 = 125252 
; SCOPE SYNC 

;TEST THE CMP 

;BR IF N = CR1 

;CMP FAILED 

;LOCK ON HARD ERROR 

;DID CMP ALTER CDEST3? 
;>BR IF NO 

JCMP DELIVERED A RESULT 



CQKDA- 
CQKDAC 

2091 
2092 
2093 
2094 

im 

2097 
00 
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003620 000765 



mm 



003622 
003 
003 

88162 

003634 

003640 

003642 
003644 

003646 
003650 

mm 



00 



003656 
""656 

-m 

003672 
003674 



003676 010412 



3370C 

mo; 



003704 
003706 



00371 

mm 



012700 
005004 
010403 
000264 

022703 

001002 

000000 
000771 

020403 
001402 

88898! 



012700 

8 2?8? 

005012 
000257 



000000 
000771 



5012 
0257 



000012 



000001 



000013 

WW 



003710 

003710 012700 000014 
003714 

■ "720 



mi mm 



005 

003730 012712 177777 

003734 020412 

003736 001402 
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Til BASIC "CMP #N,R" TEST - N = CR1 

BR 1$ >L0CK ON HARD ERROR 

. . ***************** *********** ****** •***••**•*** ********** ******* 

;*TEST 12 BASIC "CMP #N,R" TEST - N NOT EQUAL TO CR3 

• j *************************************************************** 

T5T12: 



IS: 
2S: 

3$: 
4$: 
5$: 



MOV 
CLR 
MOV 

SEZ 

CMP 

BNE 

HALT 
BR 

CMP 

BEQ 

HALT 

BR 



M2,R0 
R4,R3 



#1,R3 
4$ 

IS 

R4,R3 
TST13 

1$ 



;;load ro with test number 
;result s / b = 000000 

JCDEST] = 125252 

jscope svnc 

>test the cmp 

;br if n not equal to crj 

;cmp failed 

;lock on hard error 

;did cmp alter cdest3? 
;;br if no 

kmp delivered a result 
jlock on hard error 



*************************************************************** 

************* 

13, RO 



;*TEST 13 BASIC "MOV RA,(RB)" TEST 

• • ************************************************** 

TST13 



IS: 
2$: 



3$: 



MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 
BEQ 

HALT 
BR 



|MBUF0,R2 

R4,(R2) 

R4,(R2) 
TST14 



1$ 



;;load ro with test number 
;dest addr=mbufo 
jresult s / b = 177777 
)make cdest3 = 000qqq 
; scope sync - n:c=0000 

>test the mov 

;result correct ? 

;>BR IF YES 

;ERROR - MOV FAILED 
;LOCK ON HARD ERROR 



•*•***•*•*******•*••* *********** ******** ************ *********** 

************** ********* 



;*TEST 14 BASIC "MOV #N,(R)" TEST 

;. ************** ************************** 

TST14 



IS: 
2$: 



MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 

BEQ 



»14,R0 
|MBUF0,R2 



#-l,(R2) 

R4,(R2) 
TST15 



JJLOAD RO WITH TEST NUMBER 
;DEST ADDR = MBUFO 



;result s / b = 177777 

>MAKE CDEST3 = 
; SCOPE SYNC 



000000 



JTEST THE MOV 

JRESULT OK ? 
>>BR IF YES 
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214? 



003740 
003742 



000000 
000770 




004010 
004010 
004014 
004020 
004024 
004030 
004034 



004044 
004046 



004050 
004052 



004054 
004054 
004060 
004064 
004070 
004072 



004074 

004100 
004102 



000015 
177401 
063316 

WW 

000001 000004 



020412 
001402 



000000 
000766 



012700 
012704 
012702 
012705 
012712 
000257 



000016 
000777 

mm 

177777 



004036 112765 000001 000005 



020412 
001402 



000000 
000766 



012700 
012702 



mm 

000257 

005737 

001401 
100002 



000017 
063312 
000377 



063312 
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T14 BASIC "MOV #N/ (R)" TEST 



SEQ 0042 



3$: 



HALT 
BR 



IS 



;ERROR - MOV FAILED 
;LOCK ON HARD ERROR 



3$ 



**••***•**• *** 


no : 






MOV 




MOV 




MOV 




MOV 




MOV 




CCC 




MOVB 




CMP 




BEQ 




HALT 




BR 



»•*•****•*•* 



j • *************************************************************** 

>*TEST 15 BASIC "MOVB #"<X(R>" TEST - DEST EVEN 

**••***•**• ******** ******* » *********** *************** 

;»LOAD RQ WITH TEST NUMBER 
;RESULT S / B = 177401 
;DEST AODR ~ MBUF1 
JBASE DEST ADDR = MBUFO 
JCDESTI a 177777 
; SCOPE SYNC 



H5.R0 
177401,R4 
MBOFl/Ri 

fMBUFO, R5 
-1,(R2) 



#1,4(R5) 

R4,(R2) 
TST16 

1$ 



>TEST THE MOVB 



;result ok? 
;;br if yes 



JMOVB DELIVERED WRONG RESULT 
>LOCK ON HARD ERROR 



i ••**•••**** 



;*TEST 16 
••*•**•***< 

TST16: 



**********•***••***•**••*•**••*•****••••**•*••***•** 

BASIC "MOVB #N#X(R)" TEST - DEST ODD 
**************** ************************ 



t ************* 



1$: 
2$: 



3$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

MOVB 

CMP 
BEQ 

HALT 
BR 



|16,P0 
|777,R4 

»MBOFi,R2 

Smbufo.rs 
I-1,(r5) 



#1/5(R5) 
IS 



R4,(R2) 
3T17 



>;LOAD RO KITH TEST NUMBER 
; RESULT S / B = 777 
;DEST ADDR = MBUF1 
;BASE DEST ADDR = MBUFO 
;CDEST3 = 177777 
; SCOPE SYNC 

;TEST THE MOVB 

;RESULT OK? 
>;BR IF YES 

;M0VB DELIVERED WRONG RESULT 
;LOCK ON HARD ERROR 



••*******•**•! 

;*TEST 17 
••***********< 

T3T17i 



*************************************************** 

BASIC "TST «#A" TEST WITH C A3 GT 

********************************** **i*1 



1$: 
2$: 



MOV 
MOV 
MOV 
MOV 
CCC 

TST 

BEQ 
BPL 



I17.R0 
ImBUF0,R2 
|377,R4 
&4,(R2) 



@#MBUF0 



3$ 

TST20 



t ************* 

;;LOAD RO WITH TEST NUMBER 

JDEST ADDR = MBUFO 

JRESULT S / B = 377 (NO CHANGE) 

HDEST3 = 377 

JSCOPE SYNC 

;TEST THE TST 

;BR IF "Z" SET - IT SHOULDN'T BE 
;;BR IF "N" CLEAR - IT SHOULD BE 
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2203 
2204 
2205 
2206 
2207 
2208 
2209 

2210 
2211 
2212 

M 

2217 
!18 



2228 

p 

2233 

mi 

2236 

mi 

mi 

2241 

W 



M8 

m 
In 

257 
258 



004104 
004106 



004110 

mm 

004120 
004124 
" »126 



0041 



004134 
004I3( 

004140 

004" " 
004 
004 



m 



004154 
004154 

mm 

004166 
004170 

004172 

004176 

mm 

004204 
004206 

004210 
004212 



504220 
)04$34 



000000 
000770 



mm 

012704 

°1P412 
000257 

005737 

001401 
100402 

000000 
000770 

801IJ2 

mm 



012700 

mm 

005012 
000257 

005737 

001402 

000000 
000771 

mm 
mm 



31270 



mm 
100000 



063312 



000021 
063312 



063312 



000022 

mm 
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T17 BASIC "TST @#A" TEST WITH CA] GT 



SEQ 0043 



3$: 



HALT 
BR 

*•**•**•••* 

• .15*1*28**** 



fsT20 

IS: 
2S: 



3S: 
4S: 

5$: 



;TST FAILED TO ALTER CODES PROPERLY 
1$ ;LOCK ON HARD ERROR 

**************************************************** 

***§***£* ***§X**§f *****§X**i***!( J2** 1*2************** 



MOV 
MOV 
MOV 
MOV 
CCC 

TST 

BEQ 
BMI 

HALT 

BR 

CMP 

BEQ 

HALT 
BR 



|20,R0 
IMBUF0.R2 
ll00000,R4 
*4,(R2) 



(1#MBUF0 



It 



T2? 2) 



IS 



;>LOAD RO WITH TEST NUMBER 
JDEST ADDR = MBUFO 
;MAKE S / B = 100000 
;MAKE CDEST3 = 100000 
;SCOPE SYNC 

;TEST THE TST 

;BR IF "Z" SET - IT SHOULDN'T BE 
;BR IF "N" SET - IT SHOULD BE 

;TST FAILED TO ALTER CODES PROPERLY 

;LOCK ON HARD ERROR 

>DID TST DISTURB CDEST3 ? 

;;BR IF NOT 

JTST DELIVERED A RESULT 
HOCK ON HARD ERROR 



,**************************** 



TST21 



********* 



*********************************** 

BASIC "TST 8| A" WITH CA3 = 
********** ******** *************** ****** 



IS: 
2S: 

3$: 
4$: 
5$: 



MOV 

MOV 
CLR 
CLR 
CCC 

TST 

BEQ 

HALT 
BR 

CMP 
BEQ 

HALT 

BR 



#21, RO 
|MBOF0,R2 

(R2) 



gfMBUFO 
4$ 



IS 

R4,(R2) 
"5T22 



TSl 



IS 



************ 

;;LOAD RO WITH TEST NUMBER 
;DEST ADDR = MBUFO 

JRESULT S / B = (IT SHOULDN'T CHANGE 

;CDEST3 = 

; SCOPE SYNC - Z=0 

;TEST THE TST 

;BR IF TST SET "Z" 

;TST FAILED TO SET "Z" 
;LOCK ON HARD ERROR 

JCDEST3 STILL = 000000 
>JBR IF YES 

;TST ALTERED THE CDEST3 
;LOCK ON HARD ERROR 



************** ******** **»»**< 



;*TEST 22 
\ .*********** 

TST22S 

MOV 
MOV 
MOV 



******* ************** •****••**•*•• 

BASIC "BIT P,«#A" "I™ bit s ? t I" 
**************************************************** 



S22.R0 



;;LQAD RO WITH TEST NUMBER 
>DEST ADDR = MBUFO 
;RESULT S / B = 40000 
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MACY11 30A(1052) 
BASIC 



2259 
2260 
2261 
2262 

im 

2265 
2266 
2267 
2268 

if! 

2274 
2235 
2276 
2277 



2282 

w* 

2285 
2286 
2287 
2288 
2289 

mi 

2295 
2293 

2*29*5 

2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 

P 

im 

231" 
2311 

2312 
2313 
2314 



88**32 



88*238 

004254 
004260 
004262 

004264 

004272 

004274 
004276 

004300 
004302 

004304 
004306 



004310 
004310 

004314 
004322 
004324 
004326 
004332 
004334 



00434: 
004344 



004346 
004352 



010412 
000277 



004234 032737 040000 063312 
004242 001002 



004244 000000 
004246 000770 



012700 000023 
jjJ2702 063312 

000257 

032737 040000 063312 
001402 

ooooog 

000770 

005712 
001402 

000000 
000764 



012700 000024 

032737 000001 063234 

001401 

000000 

012702 063312 

005012 

000257 



004336 005722 
004340 001402 



O0000C 
000772 



022702 063314 
001402 



T22 
1$: 

2$: 
3$: 
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WITH BIT SET IN "A* 



MOV 

SCC 



BIT 
BNE 



HALT 

BR 



BIT »N,g#A 

R4,(R2) 

#40000, §#MBUF0 
TST23 

1$ 



;MAKE CDEST3 = 40000 

jscope sync - Z=l 

;TEST THE BIT 

>;BR IF Z=0 - IT SHOULD BE 

;BIT FAILED TO CLEAR "Z" 
JLOCK ON HARD ERROR 



• . *************************************************************** 

;*TEST 23 BASIC "BIT fN.BJA" WITH BIT CLEAR IN "A" 

•»••*•*•*•••*****•*•• A******************************** •****•*•*•* 

TST23; 



1$: 
2$: 

3$: 
4$: 

5$: 



MOV 
MOV 
CLR 
CCC 

BIT 

BEQ 

HALT 

RR 

TST 

BEQ 

HALT 
BR 



23, RQ 
MBUFO, R2 
R2) 



#40000,G#MBUF0 
4$ 



1$ 

T§T24 
IS 



;}LOAD RO WITH TEST DUMBER 
/DEST ADDR = NBOFQ 
;MAKE COEST3 - 000000 
} SCOPE SYNC - Z=0 

/TEST THE BIT 

>BR IF Z=l - IT SHOULD BE 

>bit failed to set "z" 
;lock on hard error 

;did bit deliver a result 
;;br if not 

;bit disturbed the cdest3 
;lock on hard error 



•J*************************************************************** 

;*TEST 24 BASIC "TST <R)+" TEST 

..********************************** ********************** ******* 

TST24: 

MOV #24,R0 ;;LOAD RO WITH TEST NUMBER 

. SBTTL USER CONTROLLED BREAKPOINT — BTTO 



004354 000000 



1$: 
2$: 

3$: 
4$: 
5$: 



BIT 
BEQ 
HALT 
MOV 
CLR 
CCC 

TST 

BEQ 

HALT 
BR 

CMP 

BEQ 



#BIT0/|4#BPTL0C 
.♦4 

#MBUF0,R2 
<R2 ) 



(R2) + 
4$ 

1$ 

SMBUF0+2,R2 
TST25 



BREAKPOINT HALT SET ?? 
>BR IF NOT 

;BREAK - DEPRESS CONTINUE TO RESTART 
;INITIAL DEST ADDR = MBUFO 
/MAKE CDEST3 = 000000 
?SCOPE SYNC 

/TEST THE TST 

;BR IF "Z" SET - IT SHOULD BE 

;TST FAILED TO SET "Z" 
;LOCK ON HARD ERROR 

;DID REG. GET AUTO-INCREMENTED ? 
;?BR TF YES 

;tst FAILED TO UPDATE REGISTER 
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USER CONTROLLED BREAKPOINT — BITO 



mi 

y 

m\ 
\m 
m 



334 



2337 
2338 



2345 
2346 
2347 

P 
35° 

2353 
2354 
2355 



66 



004360 
004360 
004364 
004370 
004374 
004400 

004402 

004404 

QO4406 
004410 

004412 
004414 

004416 
004420 

004422 
004424 

004*11 0* 
004432 



004450 
004452 



94464 
)4466 



0^700 



pi mm 

00270 





005745 

100002 

000000 
000771 

020502 
001402 

000000 
000765 

020412 
001403 

mm 

000760 



000025 
063330 

oc 

Of 



004434 

004434 012700 000026 

004440 012702 063312 

004444 005004 

004446 005104 



004454 005137 063312 

mm mm 



)69 004470 

HO 004470 012700 000027 



BR 1$ ;LOCK ON HARD ERROR 

**************************** **************************** ******* 

*********** 



;*TEST 25 BASIC "TST -(R)" TEST 

• . *******•*•*•****••*•***•**•••••****•****••*•*•**•*•* 

TST25: 



1$: 
2$: 

3$: 
4$: 
5$: 
6$: 
7$: 



MOV 
MOV 
MOV 
MOV 
SEN 

TST 

BPL 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

CMP 
BEQ 



&25.R0 
|DWTA+6/R2 
|377«R4 
|OWTA-H0,R5 



-(R5) 
4$ 



IS 



R5,R2 
6$ 



R4/(R2) 
TST26 



;>load ro with test number 
;dest addr = dwta+6 
; result s / b = 37-7 
;base dest addr = dwta+10 
>scopf, sync 

>test the tst 

;br if "n" clear 

;tst failed to clear "n" 
;lock on hard error 

>did dest reg get decremented? 

;BR IF YES 

;ERROR - TST FAILED TO UPDATE DEST REG 
;L0CK ON HARD ERROR 

;DID TST ALTER CDEST3? 
;?BR IF NOT 



HALT 
MOV 

BR 



R4,(R2) 
IS 



;TST ALTERED CDEST3 
^RESTORE CDEST3 
JLOCK ON HARD ERROR 

•A************************************ **************** ********* 

a******************** 



;*TEST 26 BASIC "COM BtA" TEST 

..J********************************* ******** 

TST26: 



1$: 
2$: 



3$: 



MOV 
MOV 
CLR 
COM 
CLR 
CCC 

COM 

CMP 
BEQ 

HALT 

3R 



|mb6f8,r2 

R4 

<R2) 



;;load ro with test number 
>dest addr = mbufo 
>result s / b = 177777 

;make cdest3 = 000000 

~"Jr€ 



>SCOPE SYNC 

9#MBUF0 ;TEST THE COM 

2) >RESULT = 177777 ?? 

7^BR IF YES 

;COM DELIVERED THE WRONG RESULT 



1$ 



; j** ******************** ********************************** ******* 

{:ii*I*.L***.*.*.*J*. , ...*..8H.*IS*I*..*...... ****************** 

TST27: 

MOV #27, RO ?;LOAD RO WITH TEST NUMBER 
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2371 



J94 
?395 



2398 
!399 
2400 

M°i 

M03 

mi 

M06 
[408 

\m 

2411 



2414 
2415 

2417 
2418 

mi 

\i\ 
p 

2425 
2426 



004474 
004500 
004504 
004510 



004516 
004520 

004522 
004524 



004532 
004536 



004576 
004600 



004602 
004604 



004606 
004606 
004612 
004616 
004620 
004624 



012702 

ir 



020412 
001402 

OOOOjO^ 



0001 



004540 005303 



005703 
001402 

000000 
000770 



mm 

012702 
005012 
000257 



020415 

ooi4o: 



000000 
000770 



012700 

MU 

012705 
012712 



063312 

mm 



004512 005237 063312 



000030 
000001 



004542 
004544 



Jolilo 



004552 
004552 
004556 
004562 
004566 
004570 



004572 005337 063312 



063312 



000032 
063314 



063312 
177777 



T27 

1$: 
2$: 

3$: 



basic "imc 9#a" test 
fo,r; 

,R4 
tR2) 



MOV 
NOV 
MOV 

CCC 

INC 

CMP 
BEQ 

HALT 
BR 



5 MBUFO, R2 
W f R4. 



§#MBUF0 
Ts1 



R4,(R2) 
3T30 



1$ 



;DEST ADDR = MBUFO 
/RESULT S / B = 100 
>CDEST3 = 77 
J SCOPE SYNC 

;TEST THE INC 

;DID RESULT = 100 ?? 
>JBR IF YES 

JINC DELIVERED WRONG RESULT 
JLOCK ON HARD ERROR 



. . ****** ************************************************ ********* 

;*TEST 30 BASIC "DEC RN" TEST 

j . *************************************************************** 

TST30: 

#30, RO >;LOAD RO KITH TEST NUMBER 

#1,R3 ;CDEST3 = +1 

;SCOPE SYNC 



1$: 
2$: 



MOV 
MOV 
CCC 



3$: 



DEC 



TST 
BEQ 



HALT 

BR 



P3 



P3 

TST31 



IS 



;TEST THE DEC 

)RESULT = 000000 ?? 
>>BR IF YES 

;DEC DELIVERED THE H.RONG RESULT 
>LOCK ON HARD ERROR 



******************* ************************************* •*••*•* 

. TEST 31 BASIC "DEC g#A" TEST 

i. ************** ******* ********** *********************** ********* 

T5T31: 

;>LOAD RO WITH TESI_81JMBER 



l$: 
2$: 



3$: 



MOV 
MOV 
MOV 
CLR 
CCC 

DEC 

CMP 
BEQ 

HALT 
BR 



(31, RO 

MBUFO, R2 
R2) 



@#MBUF0 



R4,(R2) 
TST32 



1$ 



r/LiUHU KU mill TEST 

>RESULT S / B = 1777 
;DEST ADDR = MBUFO 
;MAKE CDEST3 = 000000 
;SCOPE SYNC 

;TEST THE DEC 

;DID RESULT = 177777 ?? 
;>BR IF YES 

;DEC DELIVERED WRONG RESULT 
;LOCK ON HARD ERROR 



. • *********** •**•••****• ****** ************************ *********** 

'TEST 32 BASIC "CLR XfRV TESTS 

»*******••*••**•***•*•** 



;*TEST 32 BASIC "CLR X(R)" TESTS 
• • **************** •*• *********** **********< 

TST32: 

MOV #32, RO j;LOAD RO WITH TEST NUMBER 

MOV lMBUF0+2,R2 ;DEST ADDR a MBUFO+2 

CLR K4 JRESULT S / B = 000000 

1$: MOV #MRUF0,R5 ;BASE DEST ADDR = MBUFO 

MOV I-1,(R2) >CDEST3 = 177777 
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CCC ;SCOPE SYNC 

000002 2$: CLR 2(R5) JTEST THE CLR 

004636 020412 CMP R4,(R2) JRESULT = 0? 

004640 001402 BEQ TST33 j;BR IF YES 
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PAGE 49 



2434 
2435 
2436 
2437 
2438 
2439 
2440 

\\\\ 
2443 
2444 
2445 
2446 
2447 
244B 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 

* 4 $2 
2468 
2469 
2470 

mi 

2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 



00464? 
004644 



004646 
004646 

884656 

004660 

004662 

004664 
004666 

004670 
004674 

004676 
004700 



004702 
004702 
004706 
004712 

004714 

004716 

004720 
004722 

004724 
004730 

004732 
004734 



022703 
001402 



000000 
000764 



000033 
125252 



000000 
000765 



012700 

mm 

006303 

103402 

000000 
000771 



022703 052524 
001402 



000000 
000764 



012700 000034 
012703 052525 
000261 

006303 

103002 

000000 
000771 



125252 



004736 

004736 012700 000035 

004742 012703 125252 

004746 000257 

004750 006103 

004752 103402 



3$: 



HALT 

BR 



1$ 



JCLR FAILED TO ZERO CDESTD 
;LOCK ON HARD ERROR. 



J*TEST 33 

• • ***************** 

TST33: 

MOV 
MOV 
CCC 



1$: 
2$: 



BASIC "ASL RN" TEST WITH CDEST3=125252 AND C(Q> 
************************************************* 

$12$252,R3 



LOAD RO WITH TEST NUMBER 
125252 



ASL 
BCS 



3$: 
4$: 
5$: 

***************** 

TST34: 



HALT 

RR 



CMP 

BEQ 



HALT 

3R 



R3 
4$ 

1$ 



#52524,R3 
TST34 



1$ 



JMAKE CDEST3 

;make C=0 

jtest the asl - it should set "c 

jbr if "c" got set 

;asl failed to set "c" bit 
jlock on hrd error 

jwas result = 52524 ?? 
;;br if yes 

;asl delivered the WRONG RESULT 
JLOCK ON HARD ERROR 



*************************************************************** 

TEST 34 BASIC "ASL RN" TEST WITH CDEST3=052525 AND C(l) 

************************************************* 





MOV 


IS! 


MOV 


SEC 


2$: 


ASL 




BCC 


3$: 


HALT 




BR 


4$: 


CMP 


BEQ 


5$: 


HALT 


8R 



#05$525,R3 



H3 
4$ 



j************** 

;*TEST 35 
**************** 

TST35: 

MOV 

1$: MOV 
CCC 



;;LOAD RO WITH TEST NUMBER 
JHAKF. CDEST3 = 052525 
JMAKE C=l 

JTEST THE ASL - IT SHOULD CLR "C" 

;BR IF "C" GOT CLEARED 

;ASL FAILED TO CLEAR "C" 
;LOCK ON HARD ERROR 

/RESULT = 125252 ?? 
JJBR IF YES 

;ASL DELIVERED WRONG REULT 
1$ JLOCK ON HARD ERROR 

******** ******************************** ********* 

BASIC "ROL RN" TEST WITH CDEST3=125252 AND C{0) 
************************************************* 



IS 



S125252,P3 
TST35 



«5,R0 
#125252,R3 



2$: 



ROL 
3CS 



R3 
4S 



JjLOAD RO WITH TEST NUMBER 
/MAKE CDEST3 = 125252 
JMAKE C=0 

;TEST THE ROL - IT SHOULD SET C 
; BR IF "C" GOT SET 
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T35 BASIC "ROL RN" TEST WITH CDEST3=125252 AND C(0) 



2490 
2491 
2492 
2493 

mi 

2496 
2497 

iffl 

2500 
2501 

iffl 
2504 
2505 
2506 
2507 
2508 
3509 
2510 
2511 



2514 
2515 
2516 
2517 
2518 
2519 
2520 



c -25 

8* 

2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
.536 
?537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 



004754 
004756 



004760 
004764 



004766 
004770 



00477^ 

§047^6 
005002 

005004 

005006 

985010 
005012 

005014 
005020 

005022 
005024 



005044 

005046 

005050 
005052 

005054 
005056 

005060 
005062 
005064 



000000 
000771 



022703 
001402 



000000 
000764 



000261 

006103 

103002 

000000 
000771 

022703 
001402 

000000 
000764 



052524 



000036 
052524 



125251 



012700 000037 
012702 063330 

105712 

100402 

000000 
000773 

020412 
001403 

000000 
010412 
000766 



3S: 
4$: 
5$: 



HALT 
BR 



CMP 

BEQ 



HALT 

8R 



1$ 



jf055 

FstI 



is 



j24,R3 



J ROL FAILED TO SET "C" 
JLOCK ON HARD ERROR 



;RESULT = 052524 ?? 
JJPR IF YES 



JROL DELIVERED WRONG RESULT 
;LOCK ON HARD ERROR 



••******• *************** •*•*••* *********************** *********** 

;*TEST 36 BASIC "ROL RN" TEST WITH CDEST3=052524 AND C(l) 

••******************************************* *•*****••••••******* 

TST36: 



IS: 
2$: 

3$: 
4$: 
5$: 



MOV 
MOV 
SEC 

ROL 

BCC 

HALT 

BR 

CMP 
BEQ 

HALT 
BR 



fo5$524,R3 


JJLOAD RO WITH TEST NUMBER 
JMAKE CDEST3 = 052524 
JMAKE C=l 


R3 


JTEST THE ROL - IT SHOULD CLEAR C 


4$ 


JBR IF "C" IS CLEAR 


IS 


J ROL FAILED TO CLEAR "C" 
JLOCK ON HARD ERROR 


fl25251,R3 


JRESULT = 125251 ?? 
JJBR IF YES 


IS 


JROL DELIVERED WRONG RESULT 
JLOCK ON HARD ERROR 



**********************> 



J*TEST 37 
. . ******* 



f§T37 

IS: 
2$: 



3S: 
4S: 
5$: 

n 



*********** 

MOV 
MOV 
MOV 
CCC 



15iJ***nil.*5*I*ISSI*;.l* E **.J****** 



*37,R0 

Mm-* 2 



************* 



(LOAD RO WITH TEST NUMBER 
JEST ADDR = DWTA+6 
ESULT S £ B = 377 



TSTB 

BMI 

HALT 
BR 

CMP 
BEQ 

HALT 
MOV 

BR 



(R2) 
4$ 

IS 

R4,(R2) 
TST40 



R4,(R2) 



JSCOPE SYN 
JTEST THE TSTB 
JBR IF "N" SET 



IT SHOULD BE 



JTSTB FAILED TO SET "N" 
JLOCK ON HARD ERROR 



JDID TSTB DISTURB CDEST3 
JJBR IF NOT 



****************************** 

TEST 40 



JTSTB ALTERED CDEST3 
JRESTORE CDEST3 
JLOCK ON HARD EROR 
********************************* 



BASIS "TSTB (R)" TEST - ODD ADDRESS 

/ j*************************************************< 

TST40: 
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T40 BASIS "TSTB (R)" TEST 



005212 
005216 



01220^ 




000257 
105737 
001402 



000040 
064040 

mm 



000041 

mm 

063326 



000042 
063330 
000377 



063331 



IS: 
2$: 

3$: 
4$: 
5$: 



MOV 
MOV 
MOV 
MOV 
CCC 

TSTB 

BMI 

HALT 
BR 

CMP 
BEQ 

HALT 
MOV 

BR 



|40,R0 
lDWTB-»-6,R2 
117740- 



01, R4 



(R3) 
4$ 

1$ 

R4,(R2) 
TST41 



R4,(R2) 
1$ 



• • **************************** 

;*TEST 41 BASIC "TSTB B» 

# • **************************** 

f§T41i 



1$: 
2$: 

3S: 
4$: 
5$: 



MOV 
MOV 
MOV 
CCC 

TSTB 

BEQ 

HALT 

BR 

CMP 

BEQ 

HALT 

MOV 

BR 



#41, RO 
§DWTA+4,R2 
#177400, R4 

@#DWTA+4 
4$ 

1$ 

R4,(R2) 
TST42 



R4,(R2) 
1$ 



• • ****************** ********** 

;*TEST 42 BASIC "TSTB fltf 

• • ***•*••••******• ****** ****** 

TST42 : 



1$: 
2$: 



MOV 
MOV 
MOV 
CCC 

TSTB 

BEQ 



#42, RO 
#DWTA+6,R2 
#377, R4 



3#DWTA+7 
4$ 



5:26 PAGE 51 
- ODD ADDRESS 

;;LOAD RO WITH TEST NUMBER 
>6eST ADDR = DWTB+6 _ 
;RESOLT S / B = 177401 „ 
>DEST ADDR USED = DWTB+7 
; SCOPE SYNC 

;TEST THE TSTB 

JBR IF "N" SET - IT SHOULD BE 

;TSTB FAILED TO SET "N" 
JLOCK ON HARD ERROR 

>DID TSTB DISTURB CDEST3 
;;BR IF NOT 

; TSTB ALTERED CDEST3 
;RESTORE CDEST3 
;LOCK ON HARD EROR 

*********************************** 

A" TEST - EVEN ADDRESS 
*********************************** 

;;LOAD RO WITH TEST NUMBER 
;DEST ADDR = DWTA+4 
JRESULT S / B = 177400 
>SCOPE SYNC 

/TEST THE TSTB 

JBR IF "Z" SET - IT SHOULD BE 

;TSTB FAILED TO SET "Z" 
;LOCK ON HARD ERROR 

;DID TSTB DISTURB CDEST1? 
;;BR IF NOT 

;TSTB ALTERED CDEST3 
JRESTORE CDEST3 
;LOCK ON HARD ERROR 

******************** *************** 

A" TEST - ODD ADDRESS 
•a********************************* 

;>LOAD RO KITH TEST NUMBER 
>DEST ADDR = DHTA+6 
; RESULT S / B = 377 
JSCOPE SYNC 

; TEST THE TSTB 

; BR IK "Z" SET - IT SHOULD BE 



SEQ 0050 
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2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 



2615 
2616 
2617 
2618 
2619 



|f|| 
2627 

P 

2638 

2639 
2640 



2643 
2644 

w 

2648 
2649 
2650 
2651 

mi 

2654 
2655 
2656 
2657 



mm 

mm 

005230 

mm 



305236 
305236 

05250 



005262 
005264 

005266 
005270 

005272 



99 5 27. 4 
995274 
005300 
005302 

005304 

mm 
mm 



05326 

piii 

05342 



000000 
000772 

020412 
001403 

000000 

mm 



012700 

mm 

10506 



020416 
001402 

000000 
000767 

010506 



mm 

000257 

013703 

022703 
001402 

000000 
000767 



mm 
IPs 

305012 



000043 
177400 



005256 105366 000001 



000044 



063276 
063322 



000045 
063314 



1)63 



252 
31 ; 



T42 
3S: 

4$: 

5S: 



BASIC "TSTB @#A" TEST - ODD ADDRESS 
IS 

3" 



SEQ 0051 



HALT 

BR 



JTSTB FAILED TO SET "Z" 
;LOCK ON HARD ERROR 



CMP 
BEQ 



tW } 



JDID TSTB DISTURB CDEST1? 
;;BR IF NOT 



HALT 

bT 



/TSTB ALTERED CDEST3 
R4,(R2) JRESTORE CDEST3 

1$ JLOCK ON HARD ERROR 



*************************************************************** 

***************** 



;*TEST 43 BASIC "DECB 1(SP)" 

• « ****** **************** ************************ 

TST43: 



1$: 
2S: 

3$: 
4$: 



MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

DECB 

CMP 
BEQ 

HALT 
BR 



#43,R0 
SP,R5 



#177400,R4 
R5,SP 
-(SP) 



KSP) 



R4,(SP) 
4$ 



1$ 

R5,SP 



JJLOAD RO WITH TEST NUMBER 
;SAVE SP 

/RESULT S / B = 177400 

JCDEST3 = 000000 
JSCOPE SYNC 

/TEST THE DECB 

JRESULT = 177400? 
JBR IF YES 

;ERROR - DECB FAILED 
JLOCK ON HARD ERROR 

; RESET THE SP 



•••A************************************************************* 



TST44: 

1$: 
2$: 



3$i 



*********** 



mi**:m*md:*mi 



****** ********** *********** 



MOV 
CLR 
CCC 

MOV 

CMP 

BEQ 

HALT 



f 44,R0 



g)fATA,R3 



»DWTA,R3 
TST45 



1$ 



JJLOAD RO WITH TEST NUMBER 
JCDEST3 = 000000 
JSCOPE SYNC 

;TEST THE MOV 

JRESULT = DWTA? 
JJBR IF YES 

JMOV FAILED TO DELIVER CORRECT RESULT 
;LOCK ON HARD ERROR 



..*************************************************************** 

;*TEST 45 BASIC "MOV #N,X(R)" TEST 

••*****•••**•***« 

TST45: 

MOV #45, RO J J LOAD RO_WITH_TEST_ NUMBER 



1$! 



BASIC "MOV #N,X(R)" TES1 

****** ***************** **************** *********** 

nu« #45, RO JJLOAD RO WITH TEST NU> 

MOV |mBUF0+2,R2 JDEST ADDR = MBUFO+2 

MOV #125252, R4 ;RESULT S / B = 125252 

MOV |MBUF0,R3 JCR33 = BASE DEST ADDR 



(R2) 



JCDEST1 = 000000 
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mi 

2660 
2661 



[666 
!667 



5672 
2673 



27 07 



005344 

005346 

005354 
005356 

005360 
005362 



005364 
005364 
005370 

UUP 



0054 



8S 



005410 
005412 



005414 
005416 



005420 
005420 
005424 
005430 
005432 



005436 
005442 



005444 
005446 



005450 
0054i>4 



00S456 
005460 



005462 
005462 



000257 

012763 

020412 
001402 

000000 
000765 



012700 
012703 
"12704 



Ool^ 



020413 
001402 



000000 
000770 



012700 
012705 
005003 
000257 



005434 012503 



000046 
063312 
125252 



005404 012713 125252 



000047 
063276 



063322 



063300 



022703 
000402 



000000 
000766 



022705 
001402 



000000 
000761 



012700 000050 



T45 



125252 000002 2$: 
3$: 

H 



BASIC "MOV #N,X(R)" TEST 

CCC 
MOV 



SEQ 0052 



CMP 
BEQ 



HALT 

BR 



#125252,2(R3) 

R4,(R2) 
TST46 



IS 



>SCOPE SYNC 
;TEST THE MOV 



JRESULT OK? 
;>BR IF YES 



;mov delivered hroig result 
;lock on hard error 



*************************************************************** 

************************ 



• • ** ************ 

TST46: 



1$: 
2$: 



3$: 



MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 

BEQ 

HALT 
3R 



»46,R0 
|MBuF0, R3 
^|5255/R4 



;;LOAD RO WITH TEST NUMBER 
;6eST ADDR = MBUFO 



#125252, (R3) 
Ts1 



R4,(R3) 
3T47 



1$ 



*****•*****••**•••*•*•* 

_ST 47 
•*••*•**•**** 



;*TEST 47 
TST47 
IS: 



;RESULT S / B = 125252 
;C0EST3 = 000000 
SCOPE SYNC 

/TEST THE MOV 

/RESULT OK? 
;;br IF YES 

;MOV DELIVERED WRONG RESULT 
;LOCK ON HARD ERROR 

»***•*••*•*•****•**•**•***•••*****•** 



BASIC "MOV (RA)+/RB" TEST 
************************** 



2$: 

3$: 
4$: 
5$: 



MOV 
MOV 
CLR 
CCC 

MOV 

CMP 

BR 

HALT 
BR 

CMP 
BEQ 

HALT 
BR 



|47.R0 
IATA/R5 

?3 



(R5)*,R3 



|DWTA,R3 



IS 



|ATA*2/R5 
tST50 



IS 



**************** ********! 

;>LOAD RO WITH TEST NUMBER 
;SRC ADDR = ATA 
;CDEST3 = 000000 
;SCOPE SYNC 

;TEST THE MOV 

/RESULT OK? 
;BR IF YES 

;mov delivered wrong result 
jlock on hard error 

>did src reg get incremented? 
;;br if ye', 

;mov failed to update src. reg. 
>l0ck on hard error 



**************** ******************** ************* ******** ****** 

. TEST 50 BASIC "MOV fl#A,f»#B" 

••**•***• ******* ************** ************************ *********** 

TST50 : 

MOV #50/ RO ;>LOAD RO WITH TEST NUMBER 
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063316 
063322 




. 768 
2769 



012700 
012705 
065003 

ooc~-- 



063276 063316 



000051 
005532 



000010 



000052 
063322 
063312 



063276 



000053 
063276 



005614 016503 000004 
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SEQ 0053 



IS! 
2$: 



3$: 

-*TEST 



MOV 
MOV 
CLR 
CCC 

MOV 
CMP 
BEQ 

HALT 
BR 



JMBUF1/R2 
f DWTA/R4 

(R2) 



g|ATA $f MBUFl 
TST51 



IS 



/DEST ADDR = HBUF1 
;RESULT S / B = jfDWTA 
;MAKE CDEST3 = 000000 
;SC0PE SYNC 

/TEST THE MOV 

;DID RESULT = #DWTA ? 

;;BR IF YES 

;MOV DELIVERED THE WRONG RESULT 
JLOCK ON HARD ERROR 



• • ** ************************************************************* 

{ 4i 
t ***< 



T §1 

•.»****•***•*•** 

TST51: 

MOV 
MOV 
CCC 



BASIC "MOV X(R) t PC" TEST 
**************************** 



********************* 



1$: 



[51, RO 
(2S/R5 



;;LOAD RO WITH TEST NUMBER 

;CR53 ~ 2S ( 

>SCOPE SYNC 



(BASE ADDRESS) 



2$: 

3$: 
4$: 



MOV 



HALT 

BR 



4$-2$(R5),PC 
1$ 



.♦2 



/test the mov - go to next test via 4s 

;mov failed to load the pc 
;lock on hard error 

)p0inter to next test 



j .******* *************************************** ********** ******* 

• . *Sf »i 

TST52: 



•-*TEST 52 BASIC "MOV #P,{R)" TEST 

. ************************ ************ ft******************* ******* 



1$: 
2$: 



3$: 



MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 
BEQ 

HALT 

BR 



»52,R0 
}DWTA C R4 
IMBUF0/R2 
[R2) 



9#ATA,(R2) 



R4,(R2) 
TST53 



IS 



;;LOAD RQ WITH TEST NUMBER 
; RESULT S / B = fDWTA 
JDEST ADDR = MBUfO 
;NAKE COEST3=000000 
JSCOPE SYNC - Z=0 

;TEST THE MOV 

>DID RESULT = #DWTA ?? 
>;br IF YES 

;M0V DELIVERED WRONG RESULT 
;LOCK ON HARD ERROR 



****** ****************** **•****•*•*• ******************** ******* 



TS>53 
IS: 
2S: 



>****•*•***« 



i** ******** ****** ******* 



MOV #53, RO 

MOV #ATA,P5 

CLR R3 



;;LOAD RO WITH TEST NUMBER 
;CR53 = BASE ADDR FOR SOURCE (ATA) 



CCC 
MOV 



4(R5),R3 



/MAKE CDEST3 
;SCOPE SYNC 



;test the mov 



000000 
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2770 
2771 

m 
\m 

2776 
2777 
2778 



2814 
2815 
2816 
2817 



2820 
2821 

im 

2 2 8 B 2 2 5 4 



005620 
005624 



005626 
005630 



m. 
m\ 
im 

2785 

\w 

Till 

■PiW 

2793 
2794 
2795 
2796 
2797 

2800 
2801 
2802 
2803 
2804 
2805 

P 

3188 

2810 



005660 
005662 

005664 
005666 

»7 ? 2° 

05674 
05676 



005700 
005700 
005704 
005710 
005714 
005720 
005722 



005730 
005732 

005734 
005736 

005740 
005742 

005744 
005746 



522703 
D01402 



000000 
000767 



mm 

00|636 

§§illi 

005654 

005656 010445 



020412 
001402 

000000 
000767 

020205 
1402 



00 



01270? 
005012 
000257 



020412 
001402 

000000 
000766 

020502 
001402 

000000 
000762 



064630 



000054 

mm 

063314 



0000OC 
000763 



012700 000055 
012704 063322 
012702 



m 



005724 013745 063276 
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3$: 



CMP 
BEQ 



HALT 

BR 



|DBTA,R3 
TST54 



IS 



************************** 



/*TEST 54 BASIC "MOV 

j. ************************ 

TST54: 

#54, R0 

§MBUF0+2,R5 
(R2) 



#*** 

RA 
******* 



15! 26 PAGE 55 
TEST 

/RESULT = fDBTA 77 

;;br if yes 

/mov delivered wrong result 
/lock on hard error 

**•***••••*•** ******** **••****••* 

(RB)" TEST 

********************************* 



IS: 
2$: 

3$: 
4$: 
5$s 



MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 

BEQ 

HALT 

BR 

CMP 
BEG 

HALT 
BR 



/JLOAD RO WITH TEST NUMBER 

ADDR = K 

B = 1253 



/ MAKE CDEST3 = 000000 
/SCOPE SYNC 



/INITIAL DEST AQ0R.=.TEMP2 



+ 2 



R4,-(R5) 



R4,(R2) 
4$ 



IS 

R2, 
TST 



IS 



. . ************************** 

;*TEST 55 BASIC "MOV 

j.************************** 

T5T55: 



**** 

9#A 



/TEST THE MOV 

;RESULT = 125252 
;br IF YES 

/MOV DELIVERED THE WRONG ESULT 
;LGCK ON HARD ERROR 

;DID REGISTER GET DECREMENTED ? 
//BR IF YES 

;MOV FAILED TO UPDATE REGISTER 
;LOCK ON HARD ERROR 

********************** *••***•**• * 



/-<R>" TEST 
***************** 



1$: 
2S: 

3$: 
4$: 
SS: 



MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 

BEQ 

HALT 
BR 

CMP 

BEQ 

HALT 

BR 



|55,R0 
|DWTA,R4 
|MBUF0,R2 
ImBUF0*2,R5 
f«2) 



g#ATA,-(R5) 



R4,(R2) 
4S 



IS 

R5,R2 
TST56 



IS 



********* ******* 

//LOAD RO WITH TEST NUMBER 
/RESULT S / B = |DWTA 
;DEST ADDR = MBUFO 
; INITIAL DEST ADDR = MBUFO+2 
;MAKE CDEST3 = 000000 
>SCOPE SYNC 

;TEST THE MOV 

;RESULT = 000000 
;BR IF YES 

;HOV DELIVERED THE WRONG RESULT 
;LOCK ON HARD ERROR 

;DID DEST REG GET DECREMENTED ?? 
;;BR IF YES 

/MOV FAILED TO UPDATE REGISTER 
>LOCK ON HARD ERROR 
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2826 
2827 
2828 
2829 

mi 

2832 
2833 

2836 
2837 



2840 
2841 

mi 

2*847* 

2848 
2849 
2850 
2851 
2852 
2853 
2854 

mi 

2857 
Iffl 

im 

2862 

im 

2865 

W 
m 

2876 



387$ 
2880 
2881 



0^5?54 
005760 



006000 
006002 



006004 
006006 



006010 
006010 
006014 
006020 
006024 
006030 
006032 

006034 

006040 
006042 

006044 
006046 

006050 
006054 

006056 
006060 



006062 

m mi 

006074 



m 

012705 
005012 
000257 



020412 
001402 

ooop^o 



0001 



012700 

mm 

01?705 
005012 
000257 

014537 

k 



000000 
000766 

022705 
001402 

000000 
000761 



_003 
000257 



006076 012503 



000056 

mm 

063276 



005774 011537 063312 



006100 
006104 



322703 
901402 



000057 

mm 

063300 



063312 



063276 



000060 
063276 



063322 



*************************************************************** 

a********************** 



/'TEST 56 BASIC "MOV (R)#8|A" TEST 

. . **************************************** 

TST56: 



i$; 
2$: 



MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 

BEQ 

HALT 

BR 



R2 



I56.R 
MBUFu.k 
DWTA,R4 
ATA/R5 
R2) 

(«5),@#MBUF0 

R4,(R2) 
TST57 

IS 



//LOAD RO WITH TEST NUMBER 
/DEST ADDR = MBUFO 
/RESULT S / B = |DWTA 
; SOURCE ADDR = ATA 
/MAKE CDEST3 = 000000 
JSCOPE SYNC 

; TEST THE MOV 

;RESULT = #DWTA 77 

;;br if yes 

;mov delivered the wrong result 
;lock on hard error 



3$: 

.,********************** ******************** ********** *********** 

;*TEST 57 BASIC "MOV -(R)/8#A" TEST 

. . *************************************************************** 

TST57: 

;;LOAD RO WITH TEST NUMBER 

/DEST ADDR = MBUFO 





MOV 




MOV 




MOV 




MOV 




CLR 




CCC 




MOV 




CMP i 




BEQ 




HALT 




BR 




CMP 




BEQ 




HALT 


************** 



IS 
2$ 

3$ 
4$ 
5$: 



TST60: 
IS: 

2$: 



f57,R0 

*M8UF0,R2 
DWTA,R4 
ATA+5,R5 
R2) 



; RESULT S / B = fDWTA 
>INITIAL SOURCE ADDR = ATA+2 
;MAKE CDEST3 = 000000 
;SCOPE SYNC 



MOV 
MOV 
CLR 
CCC 

MOV 

CMP 

BEQ 



-(R5)/8#MBUF0 ;TEST THE MOV 

R4,(R2) ;RESULT = #DWTA ? 

4$ ;BR IF YES 

;MOV DELIVERED THE WRONG RESULT 
1$ ;LOCK ON HARD ERROR 

fATAf R5 /DID THE SRC REG GET DECREMENTED ? 

TST60 //BR IF YES 

JMOV FAILED TO UPDATE SOURCE REG 
IS /LOCK ON HARD ERROR 

************************************************* 

►S*»*£****5!***i**2<*2**IS******** ***************** 

#60«R0 //LOAD RO WITH TEST NUMBER 

|ATA,R5 /INITIAL SOURCE ADDR = ATA 

R3 /MAKE CDEST3 = 000000 

/SCOPE SYNC 

(R5)+,R3 /TEST THE MOV 

#DWTA,R3 /RESULT = #DWTA ? 

4$ /BR IF YES 
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SEQ 0056 



>9 06 
!907 



006106 
006110 



00611; 
0061K 



006120 
006122 



006124 
006124 
006130 
006134 
006136 



000000 
000766 



006144 
006150 



006152 
006154 



006156 
006156 
006162 
006170 
006174 
006176 



006204 
006210 



006212 
006214 



022705 063300 
0014 " 



L402 



000000 
000761 



012700 
012705 
005003 
000257 



006140 016503 



02270^ 
001405 



000000 
000767 



012700 
012737 
012705 
00a003 
000257 



006200 017503 



022703 
001402 



000000 
000767 



000061 
063276 



000002 
064032 



000062 
063324 
063312 



000002 
177777 




063314 



3$: HALT ;mov DELIVERED WRONG RESULT 

BR 1$ JLOCK ON HARD ERROR 

4$: CMP #ATA+2,R5' JDID SOURCE REG GET INCREMENTED 

BEQ TST61 >;BR IF YES 

5$: HALT J MOV FAILED TO UPDATE SOURCE REGISTER 

BR 1$ >LOCK ON HARD ERROR 



• . ************** 

J*TEST 61 
••*•*•****•**■ 

TST61 ! 



IS 

************************************************* 

BASIC "MOV X(RA) £ RB" TEST 

******* ********* ******** •**•***•****•• *********** 



1$: 
2S: 



3$: 



MOV 
MOV 
CLR 
CCC 



#61<R0 
I* 5 



MOV 2(R5),R3 



CMP 
BEQ 



>>loao ro with test number 
jbase source addr = at a 
;make cdest3 = 000000 
! scops sync 

/test the mov 

;result = #dwtb ? 

;;BR IF YES 



HALT 

B R 

. . ************** 

;*TEST 62 
**************** 

TST62: 

MOV 
MOV 
MOV 
CLR 
CCC 



JMOV FAILED TO DELIVER CORRECT RESULT 

is Slock on hard error 

************************************************* 

BASIC "MOV »X(RA),RB" TEST 

************* t ** ******************** •*•••****• *** 



(62/RO >>lu«u nu inn icoi nunncr 

iDWTAt2,g#MBUF0+2 SSET UP ADDRESS TABLE MB UFO 

|MBUF0,R5 — 

R3 

(J2(R5) / R3 

#-l«R3 
TST63 

IS 



;LOAD RO WITH. TEST NUMBER 



1$: 
25: 



3$: 



MOV 



CMP 

BEQ 



HALT 
BR 



JBASE ADDRESS IN R5 
;M AKE CDEST3 = 000000 
;SCOPE SYNC 

;TEST THE MOV 

;RESULT = 177777 
;>BR IF YES 

;MOV DELIVERED THE WRONG RESULT 
;LOCK ON HARD ERROR 



. . ************** 

;*TEST 63 
**************** 

TST63: 

MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 



l$: 



******* ********************* ********************* 

BASIC "MOV (R)*,X(R>" TEST 

************************************************* 

f63,R0 JJLOAD RO WITH TEST NUMBER 

I125252/R4 ; RESULT S / B = 125252 

[MBUF1+2/R2 ;FINAL DEST ADDR = MBUFl+2 

!4*g#MBUF0 JSOURCE OPERAND = 125252 

fMBUr 0/R5 JCR53 = INITIAL SRC ADDR = MBUFO 

!r2) JMAKE CDEST3 = 000000 
jSCOPE SYNC 
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006246 012565 000004 



006252 
006254 



006256 
006260 



262 
266 



006270 
006272 



006274 
006274 



6300 
6306 

m 

6316 
6322 

6^6 



006330 
006334 



006346 
006350 



006352 
006352 
006356 
QQ6362 

37§ 
00*6 37 2 

006374 

006400 



020412 
001402 

000000 
000766 

mm 

000000 
000761 



012700 

032737 
001401 
000000 

mm 

010405 
010412 
000257 

020537 

001402 

000QO0 
000770 



mm mm 



mi 

010412 
000271 



063314 



000064 
000002 



063' 
1252 



063312 



000000 
000764 



012700 000065 
Q12702 
)4 



mm 



020537 063312 
001002 



063234 
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SEQ 0057 



2$: 

3$: 
4$: 
5$: 



CMP 

BEQ 



HALT 
BR 



CMP 
BEQ 



HALT 

BR 



(R5)+,4(R5) 



R4/(R2) 
4S 



JTEST THE MOV 



;RESULT = 125252 
;BR IF YES 



1$ 



;M0V DELIVERED WRONG RESULT 
JLOCK ON HARD ERROR 



? MBgF0 +2/ R5 



m 



REGISTER GET INCREMENTED 
IF YES 



IS 



JMOV FAILED TO UPDATE REGISTER 
JLOCK ON HARD ERROR 



** *•*•*•*••****••**••*****•***••**•*•***•***•*••****•*•*•****** 
BASIC "CMP R/||A" TEST WITH CR3 = CAJ 

*********** i ******* *»!»*• ****************** ************* 

WITH TEST NUMBER 
HALT SET ?? 



\\muii 

TST64: 



MOV #64 / R0 jjload RO w 

•SBTTL USER CONTROLLED BREAKPOINT — BIT1 

BIT #BIT1/(8#BPTL0C JBRSAKPOINT 



IS: 

2$: 

3$: 
4$: 
5$: 



BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
CCC 

CMP 

BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 



• + 4 

#MBUF0.R2 

R4,(R2) 

R5,9#MBUF0 
4$ 

IS 

tM" 
1$ 



;BR IF NOT 
>BREAK - DEPRESS CONTINUE TO RESTART 
;DEST ADDR = MBUFO 
;RESULT S / B = 125252 
JCR53 = SOURCE OP = 125252 
JMAKE CQEST3 = 125252 
; SCOPE SYNC 

JTEST THE CMP 

/BR IF "Z" WAS SET - IT SHOULD BE 

>CMP FAILED TO SET "Z" 
;LOCK ON HARD ERROR 



;is 
;>br 



STILL = 125252 ? 



JCHP ALTERED CDEST3 
JLOCK ON HARD ERROR 



• *************************************************************** 

>*TEST 65 BASIC "CMP R«i#A" WITH CR3 NOT EQUAL TO CA3 

':***************** •***••****»${** ******i****S****S******* ******* 



T§T65: 



IS: 



2S: 



MOV 
MOV 
MOV 
CLR 
MOV 

sec 

CMP 
BNE 



#65, RO 

R4,(R2) 

R5 # 9#MBUF0 
TST66 



jjload RO WITH TEST NUMBER 
/DEST ADDR = MBUFO 
JMAKE RESULT S 7 B - 125252 
;CR53 = SOURCE OP * 000000 
>MAKE CDEST3 = 125252 
JSCOPE SYNC - MAKE Z=l 

JTEST THE CMP 

JJBR IF Z=0 - IT SHOULD BE 



CQKDA-C KD11- 
CQKDAC.P11 



K BASIC LOGIC TESTS 
07-NQV-78 14:09 



2994 
2995 
2996 

M 

im 

3001 



3004 
3005 

m 

3008 
3009 
3010 
3011 

mi 

m 
38I7 

|8|| 
3821 



3024 
3025 

im 

3028 
3029 

toll 

3032 
3033 

P 
3036 
3037 

ml 

3040 
3041 

mi 
im 
nvi 

3048 
3049 



006402 
006404 



006406 

mm 

006416 
006422 
006424 



006522 
006526 



00653 
00653 



000000 
000770 



mm 

012704 
005012 
000257 



m 



006426 052737 mm 063312 



006434 
006436 



006440 
006442 



mm 

006450 
006454 
006460 
006464 

006466 

006474 
006476 

006500 
006502 



006504 
006504 
006510 
006512 
006514 



006516 042703 



000000 

000767 



012700 
012702 

oil 04 

042737 

020412 
001402 

000000 
000766 



mm 

005103 
000257 



022703 
001402 



000000 
000766 



000067 
063312 

9 *m 



1771 



177700 063312 



000070 



177400 
000377 



MACY11 30AU052) 15-NOV-78 15:26 PAGE 59 

T65 BASIC "CMP R,8#»" WITH CR3 NOT EQUAL TO CAJ 



SEQ 0058 



3$: 



HALT 

BR 



1$ 



;CHP FAILED TO CLEAR "Z" 
;LQCK ON HARD ERROR 



•.*************************************************************** 

>*TEST 66 BASIC "BIS #N 4 8#A" TEST - N=177777 C CA3=000000 

j «***»»* ********************************** **************** ******* 

TST66: 

K66/P0 ; ; LOAD R0 WITH TEST NUMBER 

,R2 jOEST ADDR = MBUFO 

;RESOLT S / B = 177777 
JCDEST3 = 000000 
;SCOPE SYNC 



1$: 
2$: 



MOV 
MOV 
MOV 
CLR 
CCC 

BIS 

CMP 

REQ 

HALT 
BR 



5i5 B4 



#-l,g#MBUF0 
TST67 



JTEST THE BIS 



;RESULT OK? 
>;BR IF VES 



IS 



JBIS FAILED TO SET ALL BITS IN BITFLG 
;LOCK ON HARD ERROR 



. *************************************************************** 

J^TEST .67 



t ***************** ******* ******* 



3$: 

|*TEST 67 BASIC "BIC #N,@#A" TEST 

J .******************************** ******! 

TST67: 

#67 / P0 ;»LOAD RO WITH TEST NUMBER 

MBUF0/R2 ;DEST ADDR = MBUFO 

77, R4 JRESULT S / B = 77 

" >MAKF, CDEST3 = 177" 

; SCOPE SYNC 



3$: 



MOV 
MOV 
MOV 
MOV 
CCC 

BIC 

CMP 
BEQ 

HALT 
BR 



•1,(R2> 

#177700, 8#MBUF0 /TEST THE BIC 



77777 



R4,(R2) 
TST70 



IS 



>DID RESULT = 77 ? 
;>BR IF YES 

;BIC DELIVERED THE WRONG RESULT 
JLCCK ON HARD ERROR 



..*************************************************************** 

;*TEST 70 
J. ******** 

TST70: 



IS! 



25: 



3$: 



MOV 
CLR 
COM 
CCC 

BTC 

CMP 
BEQ 

HALT 
BR 



R3 



#177400, R3 

IsttV 3 

IS 



;;load ro withtest NUMBER 
;CDEST3 = 177777 

; SCOPE SYNC 

JTEST THE BIC 

;RESULT OK? 
;;BR IF YES 

;BIC FAILED TO CLEAR HI-BYTE 
;LOCK ON HARD ERROR 
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3050 
3051 
3052 
3053 
3054 
3055 



3056 
3057 
3058 
3559 
3060 
3061 

mi 
im 

3066 
3067 



3069 
3070 

m\ 
3874 
im 

3077 



3080 

m\ 

3083 

w 

3086 

mi 
im 
m\ 

3093 
3094 
3095 
3096 

1811 

nn 

3101 



3104 

3105 



006534 
006534 
006540 
006544 
006546 
006550 
006554 
006556 

006560 



006602 



mm 

006610 
006614 



006662 
006664 



012700 
012704 
010605 
010506 

mn 

000257 

042766 

010602 
005722 

mm 

000000 
000762 

010506 



000071 
000357 



006616 062703 



022703 
001402 



000000 
000766 



012702 
012704 
012712 
000257 



mm 



000377 



006622 
006626 



006630 
006632 



006634 
006634 
006640 
006644 
006650 
006654 



006656 062712 000002 



000072 
000002 

000002 
000004 



000073 
063312 
000004 
000002 
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T70 BASIC "BIC #N,R" TEST 

. .*************************************************************** 

;*TEST 71 BASIC "BIC #N,2(SP)" TEST 

• . **************************************************** *********** 

TST71 " 

MOV #71, RO ;;LOAD RO WITH TEST NUMBER 

MOV #357, R4 ;RESULT S / B = 357 

MOV SP,R5 JSAVE SP 

1$: MOV R5,SP ; RESET SP FOR ERROR LOOP 

MOV #377, -(SP) JCDEST3 = 377 PUT ON STACK 

TST -(SP) DECREMENT SP 

CCC ; SCOPE SYNC 



SEQ 0059 



000020 000002 2$: 



3$: 



BIC 

MOV 
TST 

CMP 

BEQ 

HALT 

BR 



#20,2(SP) 
SPjR2 

4$ 

1$ 

R5,SP 



;TEST THE BIC - CLEAR BIT 4 

;CR23 = DEST ADDR 

;RESULT = 357? 
;BR IF YES 

;BIC FAILED TO CLR BIT2 OF DEST 
;LOCK ON HARD ERROR 



4$: MOV 

.. ****** **************** ******* ******************** ************** 

>*TEST 72 BASIC "ADD #N,RN " TEST ^ ^ 

•j*************************************************************** 

TsT72 • 

MOV #72, RO ;;LOAD RO WITH TEST NUMBER 

MOV #2/R3 ;MAKE CDEST3 = 2 

CCC JSCOPE SYNC 



IS: 
2S: 



3$: 



CMP 

BEQ 



HALT 
BR 



#2,R3 

IS*?! 

1$ 



;test the add 



JRESULT = 4 ? 
;;BR IF YES 



;ADD DELIVERED THE WRONG RESULT 
;LCCK ON HARD ERROR 



• • *************************************************************** 

lfn.I**********.^***.JSS**f*ti*.***II*I*******.**..**...**..*.* 

TST73 * 

73,R0 ;;LOAD RO WITH TEST NUMBER 

MBUF0,R2 ;DEST ADDR = MBUFO 

4,R4 ;RESULT S / B = 4 

" >MAKE CDEST3 = 2 

;scope SYNC 



1$: 
2$: 



MOV 
MOV 
MOV 
MOV 
CCC 



|2,(R2) 



ADD 



CMP 

BEQ 



#2,(R2) JTEST THE ADD 



R4,(R2) 
TST74 



} RESULT = 4 ? 
>;BR IF YES 
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3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 

aw 

3118 
3119 
3120 
3121 
3122 
3123 
3124 

mi 

3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 

311? 
ffil 

3154 
3155 
3156 
3157 
3158 
3159 

31« 



006666 
006670 



006672 
006672 
006676 
006702 
886706 
006712 
006714 



006724 
006726 

mm 



006734 
006734 
006740 
006744 
006746 
006750 
006752 
006754 
006756 

006760 

006764 

006766 
006770 

006772 
006774 

006776 
007000 

007002 
007004 

007006 
007010 



000000 
000767 



012700 
012704 
012702 

mm 

000257 



000074 
000002 
063314 
063312 



006716 062765 000002 000002 



020412 
001402 



000000 
000765 



012700 
012704 
010605 
010602 
00574? 
010506 
010446 
000257 

122726 

001402 

000000 
000770 

020506 
001402 

000000 
000764 

020412 
001402 

000000 
000760 



000075 
177400 



000000 



MACY11 
T73 

3$: 

;;**** 

TST74: 

1$: 

2$: 

3$: 



30A<1052) 15-H0V-78 
BASIC "ADD #N,(R) " 



15:26 
TEST 



PAGE 61 



HALT 

BR 



IS 
»m 

JASIC "ADD 
k******* **» 



********************** 
********** 



MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 
BEQ 

HALT 

BR 



74,R0 
2,R4 

MBUF0+2,R2 
MBUFO, R5 
R2) 



#2,2(R5) 
Tsl 



R4,(R2) 
3T75 



IS 



;*TEST 
T5T75 



1$: 

2$: 

3$: 
4$: 
5$: 
6$: 
7$: 



********** ************ 

75 BASIC "CMPB 

********************** 



JADD DELIVERED THE WRONG RESULT 
J LOCK ON HARD ERROR 

************************************* 

#N £ X(R)" TEST 

************************************* 

;;load ro with test number 
;result s / b = 2 
;dest addr = mbufo ♦ 2 
>base dest addr = mbufo 
;make cdest3 = 000000 
jscope sync 

jtest the add 

; RESULT = 2 ? 

;;BR IF yes 

; ADD DELIVERED THE WRONG RESULT 
;LOOP ON HARD ERROR 

************************************* 



************* 



MOV 
MOV 
MOV 
MOV 
TST 
MOV 
MOV 
CCC 

CMPB 

BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

CMP 
REQ 

HALT 

8R 



5177400, R4 

SP,R5 

SP^R2 

rI/SP* 
R4,-(SP) 



#0,(SP)+ 
4$ 

1$ 

R5,SP 
6$ 

1$ 

R4,(R2) 
TST76 

1$ 



61 



►TEST 



********** ************ 

76 BASIC "CMPB 



#N,(SP)+" TEST 
************************ 



;;LOAO RO WITH TEST NUMBER 
JRESULT S / B = 177400 

SAVF S P 
;SET*UP DEST ADDR 
>R2 CONTAINS DEST ADDR 
> RESET SP FOR ERROR LOOP 
;MAKE CDEST3 = 177400 
J SCOPE SYNC - "Z" = 

;TEST THE CMPB 

;BR IF "Z" SET - IT SHOULD BE 

;CMPB FAILED TO SET "Z" 
;L0CK ON HARD ERROR 

;DID SP GET UPDATED BY 2? 
;BR IF YES 

;CMPB FAILED TO UPDATE SP PROPKRLY 
JLCCK ON HARD ERROR 

UDEST3 ALTERED? 
;;BR IF NOT 

;CKPB MODIFIED CDEST3 
JLCCK ON HARD ERROR. 

****** ************ ********** ********* 

(RA) + ,(RB)*-" - SRC AND DEST EVEN 
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3162 
3163 
3164 

M 

3167 
3168 
3169 
3170 
3171 

P 
3174 
3175 
3176 

mi 

3179 
3180 



L84 



»192 
193 



Joo 

3203 



!16 
!17 



007012 
007012 
007016 
007022 
007026 

mm 

007036 

007040 

007042 
007044 

007046 
007052 

007054 
007056 

007060 
007064 

007066 
007070 

007072 
007074 

007076 
007100 
007102 



012700 000076 

012704 177777 
012702 063324 

012705 063330 
010203 
000257 

122523 

001402 

000000 
000770 

022703 
001402 

ogo^og 



000' 

mm 

000000 
000756 

020412 
001403 

000000 
010412 
000751 



007104 
007104 
Q07110 
007114 
007120 
007124 
007130 

007132 

007134 

007136 

007140 000767 



007142 
00714? 



012700 

u M 
mm 

000257 
122523 
001402 

000000 

"76 

022703 
001402 



063325 



063331 



063324 
°62l27 
063325 



063326 
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)+" - SRC AND DEST EVEN 



*************************** *************** ********** ******* 



1$: 

2$: 

3$: 
4$: 
5$: 
6$: 
7$: 
8$: 
9$: 

.,**** 

r.mi 

fsT77: 

1$: 

2$: 

3$: 
4$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CMPB 

BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 
MOV 

BR 

******* 

77 

********** 

MOV 
MOV 
MOV 
MOV 
MOV 
CCC 



#76,R0 
|-l£R4 
#0WTA+2/R2 
#DWTA+6,R5 
R2,R3 



<R5)+,(R3)+ 
45 



1$ 



|D«TA+3,R3 



1$ 



|DWTA*7,R5 



IS 

R4,(R2) 
TST77 



R4,(R2) 
IS 

•••*•*•*•* ****** 

BASIC "CMPB ( 
************* 



#77 / R0 

I-iIr4 

|DWTA*2,R2 

|dWTA+5,R5 

|DWTA*3,R3 



;;LOAD RO WITH TEST NUMBER 
/RESULT S / B = 177777 
JDEST ADDR = DWTA+2 
;SRC ADDR = DWTA+6 
;R3 GETS DEST ADDR 
>SCOPE SYNC 

JTEST THE CMPB 

;BR IF "Z" = 1 - IT SHOULD BE 

?CMPB FAILED TO SET "Z" 
>LOCK ON HARD ERROR 

;DID DEST REG GET UPDATED? 
>BR IF YES 

>CMPB FAILED TO UPDATE DEST REG 
;LOCK ON HARD ERROR 

?DID SRC REG GET UPDATED? 
JBR IF YES 

>CMPB FAILED TO UPDATE SRC REG 
JLOCK ON HARD ERROR 



m 



CDEST3 GET ALTERED? 
IF NOT 



;CMPB DELIVERED A 
JRESTORE CDEST3_ 



RESULT 
;L0CK"ON HARD'ERROR 
A*********************************** 

**i*i ***************2*2**I*2******** 



CMPB 
BEQ 



HALT 
BR 



CMP 

BEQ 



<R5)+,(R3)+ 
4$ 

1$ 

|DWTA+4,R3 



;>LOAD RO WITH TEST NUMBER 
; RESULT S / B = 177777 
;DEST ADDR = DWTA+2 
>SRC ADDR = DWTA+5 
>R3 GETS DEST ADDR+1 
JSCOPE SYNC 

JTEST THE CMPB 

J BR IF "Z" = 1 - IT SHOULD BE 

>CMPB FAILED TO SET "Z" 
JLOCK ON HARD ERROR 

;DID DEST REG GET UPDATED? 
;BR IF YES 
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C "CMPB (RA)*,(RB)*" - SRC AND DEST ODD 



HIS 



3.239 
3240 

m\ 

HI 

32I9 

3250 
3251 

3255 



3258 
?59 



mi 

3265 

m 

3268 
3269 
3270 



mm mm 



007154 
007160 

mm 
8871^8 

007172 
007174 
007176 



907200 
007200 
007204 
007210 
007214 
007220 
007224 

007226 

007230 

007232 
007234 

007236 
007242 

244 

246 

007250 
007254 

007256 
007260 

007262 
007264 

007266 
007270 
007272 



022705 
001402 

mm 

mm 

000750 



012700 

012702 
01|70| 

122523 

001402 

000000 
000767 

022703 
001402 



mm mm 



022705 
001402 

mm 

020412 
001403 

000000 
010412 
000750 



063330 



000100 
177400 
063326 
063330 
063327 



063330 



063331 





HALT 




BR 




CMP 




BEQ 1 




HALT 




BR 




CMP 1 




BEQ 




HALT 




MOV 1 




BR 


************** 



IS 



|DWTA+6/RS 



IS 

R4,(R2) 
TST100 



R4/(R2) 



)CMPB FAILED TO UPDATE DEST REG 
JLOCK ON HARD ERROR 

>D.ID SRC REG GET UPDATED? 
>BR IF YES 

KMPB FAILED TO UPDATE SRC REG 
;LQCK ON HARD ERROR 

;DID CDEST3 GET ALTERED? 
;;br IF NOT 

)CNPB DELIVERED A RESULT 
jRESTORE CDEST3 
>LOCK ON HARD ERROR 



i*TEST 100 BASIC "CMPB (RA)+<(RB)+" - SRC / 

^|*****1* ***************************** **********! 



T100! 



IS: 

2S: 

3S: 
4S: 
5$: 
6S: 
7$: 
8$: 
9S: 



. . **** 

;'test 

**** 



MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CMPB 

BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

CMP 

BEQ 

HALT 

BR 

CMP 

BEQ 

HALT 

MOV 

BR 



fl00,R0 
5177400, R4 
»DWTA+4/R2 
|dwTA+6,R5 
JdWTA+5,R3 



(R5)*,(R3)+ 
4$ 



IS 



|DWTA+6,R3 



IS 

#0WTA+7,R5 



1$ 

R4,(R2) 
TST101 



R4,(R2) 
IS 



>>LOAD RO WITH TEST NUMBER 
;RESULT S / B = 177400 
?DEST ADDR ~ DWTA+4 
>SRC ADDR = DWTA+6 
>R3 GETS DEST ADDR 
; SCOPE SYNC 

>TEST THE CMPB 

}BR IF "Z" = 1 - IT SHOULD BE 

JCMPB FAILED TO SET "Z" 
;LDCK ON HARD ERROR 

>DID DEST REG GET UPDATED? 
JBR IF YES 

;CMPB FAILED TO UPDATE DEST REG 
JLUCK ON HARD ERROR 

;DID SRC REG GET UPDATED? 
;BR IF YES 

;CMPB FAILED TO UPDATE SRC REG 
;LOCK ON HARD ERROR 

;DID CDEST3 GET ALTERED? 
;;br IF NOT 

;CMPB DELIVERED A RESULT 
^RESTORE CDEST3 
;LOCK ON HARD ERROR ' 



1°1 
****** 



**************************************************** 

BASIC "CMPB (RA)+<(RB)*" - SRC / ODD t DEST / EVEN 
* *** ******** ********** ******************************* 
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BASIC "CMPB {RA)*,(RB)*" - SRC / ODD, DEST / EVEN 



3274 
3275 

327B 
3279 
3280 

w 

m 

3285 

m 

3288 
3289 
3290 



3297 
3298 
329? 
3300 
33OI 
3302 



3305 

liof 

3310 



00731 



007274 
007274 
Q07300 
007304 
10 
"4 
6 

007320 
007322 

mm 

007330 
007334 



007350 
007352 

007354 
007356 

mm 

007364 



mm 

007372 

mm 

007416 

007420 

007424 
007426 



2700 
r 21Q4 
012702 



mm 

000257 
122523 
001402 

888998 

022703 
001402 



40 000 



§°2336 
007340 

mm m 



m m 



000000 

000756 

020412 
001403 

000000 
010412 
000751 



1105 
14 



(51371 
00025 



3329 



007430 000000 
007432 000765 



007434 022705 
007440 001402 



000101 
17777? 
063324 
063327 



063325 



063330 



00( 
06', 



02 



Iff M 



112563 000004 



020412 
001402 



TST101! 

1$: 

2S: 

3$: 
4$: 
5$: 
6$: 
7S: 
8$: 
9$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CMPB 



HALT 

BR 

CMP 

BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 
BR 

CMP 
BEQ 

HALT 

bT 



#101,R0 
#-l*R4 
|DWTA+2,R2 
|DHTA+5,R5 
R2,R3 

(R5)+,(R3)+ 
4S 



IS 



)WTA+3,F3 



1$ 



|DWTA+6,R5 



IS 

R4,(R2) 
TST102 



R4,(R2) 



>* ••*•**•**•*•* ********** 



} 4 TEST 
- . **** 

>T102 



064631 



l$i 
2$: 



3$: 
4$ : 



102 
•*«***< 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

MOVB 

CMP 
BEQ 

HALT 

BR 

CMP 
BEQ 



K102.R0 
|MBUF1,R2 
|MBUF0<R3 
|177400,R4 

1-1, (fa) 



;;LOAD RO WITH TEST NUMBER 
>RESULT S / B = 177777 
>DEST ADDR = DWTA+2 
;SRC ADDR = DWTA+5 
;R3 GETS DEST ADDR 
>SCOPE SYNC 

JTEST THE CMPB 

;BR IF "Z" = 1 - IT SHOULD BE 

JCMPB FAILED TO SET "Z" 
;LOCK ON HARD ERROR 

;DID DEST REG GET UPDATED? 
;BR IF YES 

;CMPB FAILED TO UPDATE DEST REG 
;LOCK ON HARD ERROR 

;DID SRC REG GET UPDATED? 
;BR IF YES 

;CMPB FAILED TO UPDATE SRC REG 
;LOCK ON HARD ERROR 

;DID CDEST3 GET ALTERED? 
>;BR IF NOT 

>CMPB DELIVERED A RESULT 
JRESTORE CDEST3 
;LOCK ON HARD ERROR 

t************************************** 

i (RA)*,X(RB) - SRC EVEN / DEST EVEN 
1************************************** 

;:LOAD RO WITH TEST NUMBER 
;6EST ADDR = MBUF1 
;BASE DEST ADDR = MBUFO 
;RESULT S / B = 177400 
;SRC ADDR - DBTA 
JCDESTJ = 177777 
;SCOPE SYNC 



<R5)+,4(R3) 



R4,(R2) 
4$ 



JTEST THE MOVB 



>RESULT OK? 
;br IF YES 



IS 



»DBTA+1,R5 
FST103 



;MOV DELIVERED WRONG RESULT 
;LOCK ON HARD ERROR 

>DID SRC REG GET INCREMENTED BY *1 
;;BR IF YES 
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T102 BASIC "MOVB (RA)+,X(RB) - SRC EVEN / DEST EVEN 



3330 
3331 

P 
3334 

3335 

w 

1339 1 

3340 
3341 
3342 
3343 

lift 
lltt 

3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
33 63 
33^4 
33 65 
3366 
3367 
3368 
3369 

m 

3372 
3373 
3374 
3375 

m 

3378 
3379 

111! 
118! 

3384 
3385 



007442 
007444 



007446 
007452 
007456 
007462 

mm 



007504 
007506 

007510 
007512 

007514 
007520 

007522 
007524 



007564 
007566 



007570 
007572 



007574 
007600 



007602 
007604 



000000 
000760 



012700 
012702 



012705 
QI2712 



020412 
001402 



000000 
000765 



022705 
001402 



000000 
000760 



020412 
001402 



000000 
000765 



022705 
001402 



000000 
000760 



000103 

mm 

000777 



007500 112563 000005 



064636 




007560 112563 000005 



064631 



5$: HALT 
BR 

• • **•••***•*** 

;'test 103 
••*****•****•< 

TST103: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 



JMOVB FAILED TO UPDATE SRC REG 
IS JLOCK ON HARD ERROR 

t **************** ********************************* 

BASIC "MOVB (RA)+/X(RB) - SRC ODD / DEST ODD 
****** ******************************************** 



1$: 



2$: 



3$: 
4$: 



5$: 



MOVB 



CMP 
3EQ 



HALT 

BR 



CMP 

BEQ 



I103,R0 
MBUF1/R2 
MB0F0/R3 
777, R4 
DBTB+1.R5 
-1,(R2) 

(R5)+,5(R3) 

R4,(R2) 
4$ 

IS 

#DBTB+2,R5 
TST104 



HALT 

BR 

••••*•*******< 

;*TEST 104 

j. ****** **«**i 

TST104: 

MOV 
MOV 
MOV 
MOV 
,"OV 
MOV 
CCC 

MOVB 

CMP 
BEQ 

HALT 

BR 

CMP 

BEQ 



list*** 



•*•*•**•*** 



IS: 



2S: 



3$: 



4$: 



!104,P0 
MBUF1/R2 
Ml" 
DBT A#R5 
#-l,(R2) 



<R5)+,5(R3) 



R4,(R2) 
4$ 



IS 



»DBTA+1,R5 
tST105 



5$ 



HALT 

BR 

• • *********** 

;*TEST 105 

• ************ 



******** 



;;LOAD RO WITH TEST NUMBER 
/DEST ADDR = MBUF1 
/BASE DEST ADDR = MBUFO 
; RESULT S / B = 777 
;SRC ADDR = DBTB+1 
>CDEST3 = 177777 
; SCOPE SYNC 

>TEST THE MOVB 

JRESULT OK? 
;br IF YES 

>MOV DELIVERED WRONG RESULT 
;LOCK ON HARD ERROR 

;DID SRC REG GET INCREMENTED BY *1 
;;BR IF YES 

;movb failed to update spc reg 
;LQCK ON hard error 
********************************* 

I - SRC EVEN / DEST ODD 
****** ********** *********** 

;>LOAD RO WITH TEST NUMBER 
;DEST ADDR = MBDF1 
>BASE DEST ADDR = MBUFO 
;RESULT S / B = 377 
;SRC ADDR = DRTA 
;CDEST3 = 177777 
;SCOPE SYNC 

/TEST THE MOVB 

;RESULT OK? 
;BR IF YES 

;MOV DELIVERED WRONG RESULT 
>LOCK ON HARD ERROR 

;DID SRC REG GET INCREMENTED BY +1 
>>BR IF YES 

JMOVB FAILED TO UPDATE SRC REG 
JLOCK ON HARD ERROR 
••*•&* ••*•»**•****** ****** *********** 



***i^»* 

BASIC "MOVB (RA)+,X(RB) - SRC ODD / DEST EVEN 

A********************** ******************** ****** 
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1119 



P 
3*94 
3395 

P 

mi 

3400 

Ml 

3403 
3404 
3405 
3406 
3407 

1181 

3410 
3411 

mi 

3^19 
34 
34 



34 4 25 

lm 

mi 

3434 
3435 

Hi* 

mi 

3440 
3441 



007606 
007606 

007616 
007622 
007626 
007632 
007636 



007644 
007646 



007650 
007652 



007654 
007660 



007662 
007664 



007722 
007724 

007726 
007730 

007732 
007736 



J07744 
307744 
107750 
)07754 



012700 

51 M 

012785 

012712 
000257 



02041; 

00140* 



000000 
000765 




000105 

mm 

064635 

mm 



007640 112563 000004 



022705 064636 
001402 



000000 
000760 



000106 

mm 

064032 
177777 



007716 116523 000002 



063313 



020412 
001402 

000000 
000766 

022703 
001402 

000000 
000761 



012700 000107 

mm mm 
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T105 BASIC "MOVB (RA)+,X(RB) - SRC ODD / DEST EVEN 

TST105: 



1$: 
2$: 

3$: 
4$: 
5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

MOVB 

CMP 
BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 



#105,R0 

IHBUF1/R2 
MBUF0 ( R3 
-1,(R2) 

(R5)*,4(R3) 
R4/(R2) 



?;LOAD RO WITH TEST NUMBER 
;D£ST ADDR = MBUF1 
JBASE DEST ADDR = MBUFO 



S / B = 177401 
R = DBTB+i 



IS 

?STi06 



|DBTBt2,R5 



IS 



\s\t ADD 

;CDEST3 = 177777 
JSCOPE SYNC 

J TEST THE MOVB 

JRESULT OK? 
;BP IF YES 

)MOV DELIVERED WRONG RESULT 
JLOCK ON HARD ERROR 

JDID SRC REG GET INCREMENTED BY +1 
;>BR IF YES 

;MOVB FAILED TO UPDATE SRC REG 
;LOCK ON HARD ERROR 



; *****•**»***•***•***•***•*•*•**•••••*•*•**•***•***•*****•*•*•*• 



f§T106: 

1$: 
2$: 

3$: 
4$: 
5S: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

MOVB 

CMP 
BEQ 

HALT 

BR 

CMP 

BEQ 

HALT 

BR 



I106/R0 
MBUFO/R 
17740 
DWT~ 
2,Rj 
#-l,(R3) 



KU 



2(R5),(R3)+ 



R4,(R2) 
4S 



IS 

|M8UF0+1,R3 
TST107 



1$ 



JJLOAD RO WITH TEST NUMBER 
JDEST ADDR = MBUFO 
JRESULT S / B = 177401 
;SRC ADDR = DWTB 
JR3 GETS DEST ADDR 
JCDEST3 = 177400 
JSCOPE SYNC 

JTEST THE MOVB 

;RESULT OK? 
jbr IF YES 

jmovb delivered wrong result 
;l0ck on hard error 

jdid dest reg get incremented? 
;;br if yes 

;movb failed TO AUTO INCREMENT DEST 
;LOCK ON HARD ERROR 



*************************************************************** 

?h5S***2*.*...*§*.**Y;*m...^ 



fin 



07: 



MOV 
MOV 
MOV 



107/RO 



R2 
R4 



>;LOAD RO WITH TEST NUMBER 
JDEST ADDR = MBUFO 
>RESULT S / B = 177401 
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064634 

177777 

000001 



063313 




m 

3478 
3479 

mi 
mi 

3484 
3485 
3486 
3487 

m§ 

3490 
3491 
3492 
3493 
3494 
3495 



010060 
010062 



010064 
010066 



010070 
010074 



010076 
010100 



010102 
010102 
010106 
010112 
010116 
010122 
010126 
010132 



020412 
001402 



000000 
000765 



022703 
001402 



000000 
000760 



012700 
012702 
012704 
012705 
012703 

oJ^5^ 



000110 

mm 



010054 116523 000002 



063314 



000111 

mm 

064634 
063313 
177777 



MACY11 
T107 



1$J 
2$: 



052) 15-NOV-78 15:26 PAGE 67 

C "MOVB 2<RA),(RB>*" TEST - SRC OOD / DEST EVEN 



3$: 



4$: 



5$: 



30A(1 
BASI 

B8v BJH'" 8 ^gWdesHBdr 

MOV #-l/(R3) ;CDEST3 = 177777 

CCC ; SCOPE SYNC 

MOVB 1(R5),(R3)+ /TEST THE MOVB 

CMP R4,(R2) JRESULT OK? 

BEQ 4$ JBR IF YES 

HALT >MOVB DELIVERED WRONG RESULT 

BR 1$ ;LOCK 014 HARD ERROR 

CMP #MBUF0+1,R3 ;DID DEST REG GET INCREMENTED? 

BEQ TST110 ;;BR IF YES 

HALT >M0VB FAILED TO AUTO INCREMENT DEST REG 

BR 1$ ;LOCK ON HARD ERROR 

a************************************************************** 



SEQ 0066 



''• .*5*ir* 
TST110: 

1$: 
2$: 

3$: 
4$: 
5$: 

..**«** 

;*TEST 
j . ***** 

TSTlll: 
1$: 



1*2**< 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

MOVB 

CMP 
BEQ 

HALT 
BR 

CMP 

BEQ 

HALT 

BR 



A*************************************** 

BASIC "MOVB 2<RA) £ (RB)+" TEST - SRC EVEN / DEST ODD 
************ I ********************** ************** 



jiio.ro 

|MBUf 0/R2 

i777 t R4 

{DWTB.R5 

|WBUFD+I,R3 

f-l/(R2) 



2(R5),(R3)+ 



R4/(R2) 
4$ 



#MBUF0+2,R3 
TSTlll 



1$ 



;;LOAO RO WITH TEST NUMBER 
>DEST ADDR = MBUFO 
;RESULT S / B = 777 
;SRC ADDR = DWTB 
>R3 GETS DEST ADDR 
>CDEST3 = 177777 

;scops sync 

>test the movb 

;result ok? 
ibr if yes 

;movb delivered wrong result 
;lock on hard error 

;did dest reg get incremented? 

;>BR IF YES 

;MOVB FAILED TO AUTO INCREMENT DEST REG 
;LOCK ON HARD ERROR 



HI** 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 



***************************************************** 

BASIC "MOVB 2(RA),(RB}+" TEST - SRC ODD / DEST ODD 
*************************************************** 

I1U,R0 ;;LOAD RO WITH TEST NUMBER 

MBUFO, R2 /DEST ADDR = MBUFO 

777 £ R4 ; RESULT S / B = 777 • 

DBTB,R5 >SRC ADDR = DBTB 

MBUFO+1/R3 >R3 GETS DEST ADDR = MBUFO+1 

-1,(R2) ;CDEST3 = 177777 
JSCOPE SYNC 



CQKDA-C KD11-K BASIC LOGIC TESTS 
CQKDAC.P11 07-NOV-78 14:09 



MACY11 30AU052) 15-NOV-78 15:26 PAGE 68 

Till BASIC "MOVB 2(RA ), ( RB) TEST - SRC ODD / DEST ODD 



SEQ 0067 



3498 
3499 
3500 
3501 

\m 

3504 

1181 

3507 
3508 
3509 
3510 

m 

3513 



1516 
J517 

"18 



3528 
3529 
3530 

3532 1 
||33 

3536 

\\\\ 
3539 
3540 

lilt 

3548 
3549 
3550 

ik 

3553 



010134 116523 000001 



010140 
010142 

010144 
010146 

010150 
010154 

010156 
010160 



81 



0162 
0162 
0166 

HU 
0174 



J10200 
)10204 



010206 
010210 



010212 
010216 



010220 
010222 



n 



oio; 
oio: 



J10250 
J10252 



)102b4 
510260 



000000 
000765 



022703 063314 
001402 

000000 
000760 



nmi 
mm 



010176 114503 



022703 
001402 

000000 
000766 

022705 
001402 

000000 
000761 



010224 
010224 

llolle Lo25' 
010240 114503 



012700 
12705 
0500^ 



022703 
001402 

000000 
000766 

022705 
001402 



000112 
063331 



177777 



063330 



000113 
063330 



177777 



063327 



2$: 

3$: 
4$: 
5$: 



MOVB 



CMP 
BEQ 



HALT 
BR 



CMP 
BEQ 



1(R5),(R3)+ 



R4,(R2) 
4$ 



1$ 



fMBUF0+2,R3 
fST112 



HALT 
BR 

j ********** 

ifXi.Ui.** 



T§ 
1$: 

2$: 

3$: 
4$: 
5$: 



IS 

**************** 

BASIC "MOVB 
******* ********* 



-{RA 
**** 



T112: 



MOV 
MOV 

M 

MOVB 

CMP 
BEQ 

HALT 
BR 

CMP 

BEQ 

HALT 

?R 



m2<R0 
|DWTA+7,R5 

S3 



-(R5),R3 



is 



jDWTA*6,R5 
fST113 



. . ********** 

;*TEST 113 
• • ********** 

TST113: 



1$: 



2$: 



3$: 
4$: 



MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 

BEQ 

HALT 
BR 

CMP 
BEQ 



****!$ ********** 

BASIC "MOVB 
******* ********* 

(fll3.R0 
|DWTA+6,R5 

-(R5),R3 
J-1/R3 



• *** 

-(RA 
**** 



IS 



tDWTA+5/ R5 
PST114 



JTEST THE MOVB 

JRESULT OK? 
;BR IF YES 

;MOVB DELIVERED WRONG RESULT 
>LOCK ON HARD ERROR 

JDID DEST REG GET INCREMENTED? 
;;BR IF YES 

;MOVB FAILED TO AUTO INCREMENT DEST REG 
JLOCK ON HARD ERROR 

********************************* 

)#RB" TEST - SRC EVEN ADDR 
********************************* 

;;load ro with test number 
;src addr = dwta+7 

;CDEST3 = 000000 
>SCOPE SYNC 

;TEST THE MOVB 

JRESULT OK? 
;BR IF YES 

>MOVB FAILED - WRONG RESULT 
JLOCK ON HARD ERROR 

;SRC REG GET DECREMENTED? 
;>BR IF YES 

>MOVB FAILED TO UPDATE SRC REG 

»B" TEST - SRC ODD ADDR 
******************************* 

;;LOAD RO WITH TEST NUMBER 
>SRC ADDR = DWTA*6 
;CDEST3 = 000000 
; SCOPE SYNC 

;TEST THE MOVB 

;RESULT OK? 
>BR IF YES 

;MOVB FAILED - WRONG RESULT 
;LOCK ON HARD ERROR 

;SRC REG GET DECREMENTED? 
JJBR IF YES 
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T113 BASIC "MOVB ~(RA),RB" TEST - SRC ODD ADDR 



SEQ 0068 



010356 
°10256 
010362 
010364 
010370 
010372 
010376 
010402 
010404 
010406 



000000 
000761 



mm 

012704 
010506 
012703 
0J2746 
010602 
005726 
000257 



010262 
010264 



010266 
010266 
010272 
010274 
010300 
010302 
010306 
010312 
010314 
010316 



010320 112346 



010322 
010326 



010330 
010332 



010334 
010336 



010340 
010342 



010344 
010346 



010350 
010352 



010354 010506 



000000 
000762 

020412 
001402 

000000 
000756 

020206 
001402 

000000 
000752 



000114 
177400 

i ^ 



064631 



mm 000115 

012704 177400 
010506 

012703 064035 
012746 177777 
010602 
005726 
000257 



010410 112346 



5$i 

TS 

1$: 



2S! 

3$ J 
4$i 

6$i 

8$J 

H 

IS! 

2$; 



HALT 
BR 

*********** 

IS*.***.*.* 

T114: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
CCC 

MOVB 

CMP 
BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

: MOV 

**•**•***•• 

TEST 115 
*********** 

T115: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
CCC 

MOVB 



IS 



;MOVB FAILED TO UPDATE SRC REG 
JLOCK ON HARD ERROR 



a************************************************* 

BASIC "MOVB (RA)* C -(SP)" TEST - SRC ADDR EVEN 
**************************************************** 



!$p 400 ' R4 

#DBTA«R3 
(SP)* 

(R3)*,-(SP) 
|DBTA+1,R3 

1$ 

R4,(R2) 
6$ 

1$ 

H2/SP 
8$ 



IS 

R5,SP 



;;load ro with test number 

;SAVE SP 

;RESULT S / B = 177400 
;RESET SP FOR ERROR LOOP 
>SRC ADDR = DBTA 
;CDEST3 = 177777 
;R2 GETS DEST ADDR 
;RESET SP 
>SCOPE SYNC 

>TEST THE MOVB 

;DID MOVB INCREMENT SRC REG? 
;BR IF YES 

>MOVB FAILED TO UPDATE SRC REG 
>LOCK ON HARD ERROR 

JRESULT OK? 
J BR IF YES 

;MOVB FAILED TO DELIVER CORRECT RESULT 
;L0CK ON HARD ERROR 

;DID SP GET PUSHED BY 2 ? 
;BR IF YES 

;movb failed to push sp properly 
;lock on hard error 

j reset sp in case of error 



•ft************************************************** 



BASIC "MOVB (RA)* 4 -(SP)" TEST 
»••***•**••******••****•••••*** 



#DWTB+3,R3 
|-1,-(SP) 

sp<R2 

(SP) + 



(R3)*,-(SP) 



;;load ro kith test number 

/SAVE SP 

JRESULT S / B = 177400 
>RESET SP FOR ERROR LOOP 
;SRC ADDR - DNTB+3 
;CDEST3 = 177777 
;R2 GETS DEST ADDR 
;RESET SP 
; SCOPE SYNC 

/TEST THE MOVB 
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3610 



mvi 

0104S 



010466 
010470 



mm 
mm 

005012 
000257 



mm 



964 



MACY 
T115 



11 30AU052 
BASIC " 



) 15-NOV-78 15: 
MOVB (RA)*,-(SP)' 



010412 
010416 


022703 064036 
001402 




CMP 
BEQ 


|DWTB*4,R3 


010420 
010422 


000000 
000762 


3S: 


HALT 
BR 


1$ 


010424 
010426 


020412 
001402 


4$: 


CMP 
BEQ 


R4,(R2) 
65 


010430 
010432 


000000 
000756 




HALT 

BR 


IS 


010434 
010436 


mm 


6$: 


CMP 
BEQ 


R2/SP 

8$ 


010440 
010442 


mm 




HALT 

BR 


IS 


010444 


010506 


8$: 


MOV 


R5,SP 



1$: 



a************************** 

ST 116 
******** 

16: 

MOV 
MOV 
MOV 
MOV 

CLR (R2) 
CCC 



26 PAGE 70 
' TEST - SRC ADDR ODD 

;DID MOVB INCREMENT SRC REG? 
;BR IF YES 

;MOVB FAILED TO UPDATE SRC REG 
;LOCK ON HARD ERROR 

>RESULT OK? 
;BR IF YES 

>MOVB FAILED TO DELIVER CORRECT RESULT 
;LOCK ON HARD ERROR 

JDID SP GET PUSHED BY 2 
>BR IF YES 

;MOVB FAILED TO PUSH SP 
JLOCK ON HARD ERROR 

;RESET SP IN CASE OF ERROR 
a********************************* 

/ DEST EVEN 
************ 



SEQ 0069 



BASIC "MOVB X(R)«8#A" TEST - SRC EVEN 
******* ** ************ ***************** 

LOAD RO WITH TEST NUMBER 
„MBUF0#R2 ;D~~~ 

I 



#116,R0 , 
ffMBUr 0/R2 

Id&TB,R5 



;dest ADDR = MBUFC 
^RESULT S / B = 1 
;BASE SRC ADDR = DWTB 
;CDEST3 = 000000 
;SCOPE SYNC 
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3644 

Ifli 

3647 
3648 



3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 

mi 

3 667 
3668 
3669 
3670 
3671 

3674 

im 

3677 
3678 
3679 
3680 
3|81 

36ll 



368 
368 
368 



010542 
010544 

010546 
010550 



010552 
010552 

010566 
010572 
010574 



81 



0614 
0614 



020412 
001402 



000000 
000767 



010500 
010502 



010504 
010506 



010510 
010510 
010514 
010520 
010524 
010530 
010532 

010534 116537 000001 063312 



012700 000117 
063312 



813781 



00000J 



012705 06463 
005012 
000257 



020412 
001402 



000000 
000767 



012700 000120 
- 063312 
000400 



mm 



012705 064032 
005012 
000257 



010576 116537 000006 063313 



10604 
0606 

010610 
010612 



8I06O6 8S?1J1 



000000 
000767 



012700 000121 




032737 

;;; 4 o°o? 
mm 



000004 063234 



mm 

064634 



HACY11 30AU052) 
T116 



15-NOV-78 15:26 PAGE 71 



641 010472 116537 000006 063312 2$: 



BASIC "MOVB X(R),8#A 
MOVB 6(R5),e#MBUF0 



CMP 
BEQ 



R4,(R2) 
TSTI17 



TEST - SRC EVEN / 
>TEST THE MOVB 



JRESDLT OK? 
>>BR IF YES 



DEST EVEN 



3$: 



HALT 

BR 

************** 



• . ******** 

i'ls****** 

TST117: 



)MOVB DELIVERED WRONG RESULT 
SLOCK ON HARD ERRRQR 
********************************** 



******** 



******* 



1$: 
2$: 



3$: 



MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 

BEQ 

HALT 



HU.RO 
lMBUF0,R2 

|d6tB,R5 
CR2) 



;;LOAD RO WITH TEST NUMBER 
;DEST ADDR = MBUFO 
$RESULT S / B = 1 
>BASE SRC ADDR = DBTB 
>CDEST3 = 000000 
>SCOPE SYNC 



l(R5),(a#MBUF0 >TEST THE MOVB 
TST120 



. . *********************** 



• ■ WW*«*1 

TST120: 

IS: 
2$: 



;RESOLT OK? 
>;BR IF YES 

>MOVB DELIVERED WRONG RESULT 

»ti8S$*8g*3ft88*i88888,*«**.****.** 

BASIC "MOVB X(R),8fA" TEST - SRC EVEN / DEST ODD 
►**»*«** *************** ******** ********** ********* 



******* 



MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 
BEQ 



1120, RO 

|M8UF0,R2 

|400.R4 

Idwt8,r5 

(R2) 



JiLOAD RO WITH TEST NUMBER 
JuEST ADDR = MBUFO 
;RESULT S / B = 400 
>B ASE SRC ADDR = DWTB 
;CDEST3 = 000000 
; SCOPE SYNC 



6(R5),g#MBUF0*l >TEST THE MOVB 



R4,CR2) 
TSTI21 



> result ok? 
;;br if yes 



3$: 



>MOVB DELIVERED WRONG RESULT 
BR 1$ ;LOCK ON HARD ERRROR 

************ ***************** *********************** *********** 



;*TEST 121 
j . ********** 

TST121: 

MOV 



nuv #121, RO ;;LOAD RO WITH TEST NUMBER 

SBTTL USER CONTROLLED BREAKPOINT — BIT2 

BIT2/P#BPTLCC BREAKPOINT HALT SET ?? 



1$: 



BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
CLR 



. + 4 

#MBUF0,R2 
#400, R4 
$0BTB,R5 
<R2) 



;BR IF NOT 
/BREAK - DEPRESS CONTINUE TO RESTART 
JDEST ADDR = MBUFO 
;RESULT S / P = 400 
;B ASE SRC ADDR = DBTB 
;CDEST3 = 000000 



CQKDA- 
CQKDAC 

3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 

m 

3707 
3708 

mi 

3711 
3712 

im 

3715 
3716 
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mi 

1719 



37^ 
3725 

m 

3726 

p 

mi 

3731 
3732 

mi 
3735 

Mi 

3740 

m\ 
3743 

M 

3747 

m 

3751 
3752 



010650 
010652 



010660 
010662 



)10664 
)10666 



010670 
010670 
010674 

010676 
010700 
010702 



8M M 



010714 
010722 

mm 

010730 

mm 

010736 

010740 
010742 

010744 
010744 

l\M 



000257 
116537 



02041: 
001403 



3000 
5767 



012700 
000257 

001404 
100403 
102402 



06 



mm 



m\ mm mm 



£77 

001402 

000000 
000774 

100402 

888W? 

102402 

000000 
000766 

103402 

mm 



000001 063313 2$: 



3$: 



000122 



mw 000123 



CCC 
MOVB 



CMP 

BEQ 



HALT 
BR 



;SCOPE SYNC 
1(R5),@#MBUF0*1 /TEST THE MOVB 



IS 



R2) 
22 



;result ok? 
;;br if yes 

;movb delivered wrong result 
;lock on hard errror 



> *********** *********** ********** 1 



****** ******* ******* ********** 



J*TEST 122 BASIC QUICK VERIFY TEST FOR BMI,BBQ,BVS,BCS-FLG=0 

. *************************************************************** 

T5T122: 

#122, RO 



1$: 
2$: 



3$: 



MOV 
CCC 

BEQ 
BMI 
BVS 
BCS 
BR 

HALT 
BR 



3$ 
3§ 
3| 
3$ 

TST123 



1$ 



;?LOAD RO WITH TEST NUMBER 
;CLEAR ALL FLAGS 

;NO BR SHOULD OCCUR-FLAG=0 
;NO BR SHOULD OCCUR-FLAG=0 
;NO BR SHOULD OCCDR-FLAG=0 
;NO BR SHOULD OCCUR-FLAG=0 
;;GO TO NEXT TEST 

?ONE OF ABOVE BR'S FAILED 
; ERROR LOOP RETURN 



• • ************** ******************************** ***************** 

;*TEST 123 BASIC QUICK VERIFY TEST FOR BMI,BEQ,BVS, BCS-FLAGsl 

..**^***i*************** ************************* **W* *********** 

{6T123: 



IS! 

21$: 

3$: 

22$: 
5$: 

23$: 
7$: 

24$: 

9$: 



MOV 
SCC 



BEQ 



HALT 

BR 



HALT 
BR 



HALT 

BR 



HALT 
BR 



#123, RO 

22S 

1$ 
23$ 

IS 
24$ 

1$ 

TST124 
1$ 



;;LOAD RQ WITH TEST NUMBER 

jmake n:C = llll 

;TEST THE BEQ-IT SHOULD BR 

;BEQ FAILED 
JERROR LOOP RETURN 

;TEST THE BMI-IT SHOULD BR 

;BMI FAILED 
;ERROR LOOP RETURN 

;TEST THE BVS-IT SHOULD BR 

JBVS FAILED 
;ERROR LOOP RETURN 



;;TEST THE BCS-IT SHOULD BR 



;BCS FAILED 

; ERROR LOOP RETURN 



*************************************************************** 



TEST 124 



BASIC BVC TEST WITH V=l 



CQKDA 
CQKDAC 

m 

3755 
J7&6 

3758 
3759 
3760 

mi 

3763 
3764 
3765 
3766 
3767 
3768 



3772 
3773 

mi 

3776 
3777 

3780 
J781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 

mi 

3791 
3792 

3*7*94 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
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010752 
010752 

010756 

010760 
010762 

010764 
010766 



010770 
010770 

010774 

010776 
010776 

011000 
011002 



011004 
011004 

011010 

011012 
011012 

011014 
011016 



011020 
011020 



011024 
011026 



011030 
011032 



011034 
011036 



000124 



000125 



012700 
000262 



102001 
000402 



00000C 
000772 



012700 
000242 

102002 

000000 
000774 



012700 
000257 

002002 

000000 
000774 



012700 000127 

000257 
000262 

002001 
000402 

000000 
000772 



000126 



*************************************************************** 



T5T124: 



IS: 
2$: 

3$: 



MOV 
SEV 



BVC 
BR 



HALT 

BR 



#124,R0 



TST125 



1$ 



;>LOAD RO WITH TEST NUMBER 
;make V=l 

;test the bvc-it shouldn't br 
>>go TO next test 

>bvc failed 
;error loop return 



*************************************************************** 



*************************** 



;*TEST 125 BASIC BVC TEST WITH V=0 

s . ************** **************** ******* 

T5T125: 

MOV fl25y.R0 >;L0AD RO WITH TEST NUMBER 



1$: 
2$: 



CLV 

BVC 



HALT 
BR 



TST126 
1$ 



JMAKE V=0 

;;TEST THE BVC-IT SHOULD BR 



>BVC FAILED 

; ERROR LOOP RETURN 



3$: 

WO DftO.LV DUG 1DOI llin B, » 

• - ************** ******** ********************** ************ ******* 

TST126: 

MOV #126, RO ;>LOAD RO WITH TEST NUMBER 



> *********** ******** *•*•*•***•••*•******* **************** ******* 

)*TEST 126 BASIC BGE. TEST. WITH N«V.= 00 



1$: 
2$: 

3$: 



CCC 



HALT 
BR 



TST127 



IS 



;make n:c = 0000 



J ; TEST THE BGE-IT SHOULD BR 



;BGE FAILED 
;ERROR LOOP RETURN 



••*************************************************************** 

;*TEST 127 BASIC BGE TEST WITH N C V = 01 

• . *************************************************************** 

T5T127: 

MOV #127, RO ;;LOAD RO WITH TEST NUMBER 



IS: 
2$: 
3$: 



ccc 

SEV 



BGE 
BR 



HALT 
BR 



3S 

TST130 



IS 



;CLEAR FLAGS 
>MAKE N,V = 01 

;TEST THE BGE-IT SHOULDN'T BR 
;;GO TO NEXT TEST 

;BGE FAILED 
;ERROR LOOP RETURN 



. ******************* ****** *************************** *********** 



CQKDA-C 
CQKDAC. P 

3809 
3810 
3811 
|8l| 

3815 

P 

3819 
382I 

m 
m 



KDll- 
11 
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18! 

ill 
P 

342 
J4* 



4 4 ! 



r 

3^49 
|I| 

38*55 
3856 

3861 



011040 
011040 

011044 
011046 

mm 
mm 



012700 000130 



000257 
000270 



302001 
900402 

aooooo 

500772 



011060 

011060 012700 000131 

011064 000257 

011066 000272 

011070 

011070 002002 

811871 "88877$ 



011076 

011076 012700 000132 



011102 000257 



! 811m 888*8i 

QllllO 000000 
011112 000773 



011114 

011114 012700 000133 

011120 000257 

011122 000262 

011124 

011124 002402 
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T130 BASIC BGE TEST WITH N,V = 10 



{tissue*** **• 

TST130: 

MOV 



BASIC BGE TEST WITH N.V = 10 

************************************************* 

#130, RO ;;LOAD RO WITH TEST NUMBER 



IS: 
2$: 
3$: 



ccc 

SEN 



BGE 
BR 



HALT 

BR 



3$ 

TST131 



IS 



JCLE AR FLAGS 
;MAKE N/V = 10 

jtest the bge-it shouldn't br 
}}go to next test 

;bge failed 

; error loop return 



•.*•******•«* ********************************* ************ ******* 

>*TEST 131 BASIC BGE TEST WITH N t V = 11 

.. ************** ******** ************** ******< 

TST131: 

MOV #131, RO ;;LOAD RO WITH TEST NUMBER 



f** ******** *********** 



IS: 
2S: 
3$: 

ft 



:cc 

?72 



HALT 

BR 



TST132 
IS 



/CLEAR FLAGS 
JMAKE N,V = 11 



JJTEST THE BGE-IT SHOULD BR 



>BGE FAILED 
JERROR LOOP RETURN 



i ****************************************************** ********* 
, TEST 132 BASIC BLT TEST WITH N,V = 00 

; j******************* *************** *%****♦*» 

TST132: 

#132,R0 ;;LOAD RO WITH TEST NUMBER 



k ********************* 



IS: 
2S: 

3S: 



MOV 
CCC 



BLT 
BR 



HALT 
BR 



3$ 

TST133 



IS 



> clear flags 

;test the blt-it shouldn't br 
>;go to next test 

;blt failed 
;error loop return 



********************** ***************************************** 



1JIS.I*!* 3 .****** 

TST133: 

MOV #133, RO 



BASIC BLT TEST WITH N,V = 01 
********************************** 



*************** 



164 011126 000000 



1$: 
2$: 
3S: 



CCC 
SEV 



BLT 
HALT 



TST134 



>;LOAD RO WITH TEST NUMBER 



>CLEAR FLAGS 
JMAKE N,V = 01 



JJTEST THE BLT-IT SHOULD BR 
;BLT FAILED 
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3865 

m 

PP 

3870 

mi 

3875 
3876 

1872 

3881 



388E 
$889 



3§95 
38*7 



M 

3907 
3908 
3909 
3910 

Hi} 

mi 
ilif 

3918 
3920 



011130 000773 



011132 

011132 012700 

mm mm 

011142 
011142 



811"« 



146 



811118 
811182 

011160 
011162 

011164 
011166 



811178 

811178 

011200 
011202 

011204 
011206 



01121( 
01121( 



011214 
011216 



002402 

00000C 
000773 



002401 
000402 



000000 
000772 



003001 
000402 



000000 
000772 



000134 



012700 000135 



012700 000136 



257 
166 



012700 000137 



000257 
000262 
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T133 BASIC BLT TEST KITH N,V = 01 



1$ 



> ERROR LOOP RETURN 



.,*•**** **************************** **************** *»***» ******* 

TST134: 

MOV #134/R0 ;>LOAD RO KITH TEST NUMBER 



1$: 
2S: 
3$: 



CCC 
SEN 



HALT 

BR 



TST135 



1$ 



>CLEAR FLAGS 
>SET N - N/V = 10 



;;TEST THE BLT-IT SHOULD BR 



)BLT FAILED 

; ERROR LOOP RETURN 



*************************************************************** 



T135: #135 / ro ;>LOAD RO WITH TEST NUMBER 



**************** 



1$: 
2$: 
3$: 
> 



MOV 



CCC 
272 



BLT 
BR 



HALT 
BR 



3$ 

TST136 



1$ 



/CLEAR FLAGS 
;MAKE N,V = 11 

>TEST THE BLT-IT SHOULDN'T BR 
;>GO TO NEXT TEST 

>BLT FAILED 
;ERHOR LOOP RETURN 



*************************************************************** 

?*TEST 136 BASIC BGT TEST WITH Z = 1 AND N/V = 01 

j. #5 ****^********* **************************************** ******* 

TST136: 

#136/R0 ;;LOAD RO WITH TEST NUMBER 



1$: 
2$: 
3$: 

U 



MOV 



CCC 
266 



BGT 
BR 



HALT 
BR 



3$ 

TST137 



1$ 



/CLEAR FLAGS 
;SET Z AND V 

;TEST THE BGT-IT SHOULDN'T BR 
;;GO TO NEXT TEST 

;BGT PAT LED 

; ERROR LOOP RETURN 



*************************************************************** 

>*TEST 137 BASIC BGT TEST WITH Z = AND N,V = 01 

• . i*^**^* •*•**•«*** ****«•*•*•* *•***•*••*•**** ******** *********** 

TST137: 

MOV #137 / R0 ;;LOAD RO WITH TEST NUMBER 



1$: 



CCC 
SEV 



/CLEAR FLAGS 
>SET V 
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3921 
3922 
3923 
3924 

hi 

3927 
3928 



|931 

3934 
3935 
3936 
3937 



m 



J94C 
1941 
594J 



3945 
3948 

mi 

3951 
3952 

pi 
3955 

3956 

P 
3959 

3960 

3961 

3962 

1888 

3967 

hi 

3970 
3971 

887} 

3974 

1871 



011220 
011222 

811338 



011230 
011230 

011234 
011236 

81i?12 
811318 



8113! 
8113 M 



62 



011372 



003001 
000402 

000000 
000772 



012700 000140 



1*1 
264 



003001 
000402 

000000 
000772 



811118 012700 000141 

011254 000257 



003002 

000000 
000774 



011264 

011264 012700 000142 



000257 
000266 



811378 883884 
811185 88877-8 

811181 012700 000143 
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T137 BASIC BGT TEST WITH Z = AND N,V = 01 



2$: 
3$: 



BGT 
BR 



HALT 

BR 



T$T140 



1$ 



>TEST THE BGT-IT SHOULD NOT BR 
;>GO TO SCOPE LOOP EXIT 



;BGT FAILED 

; ERROR LOOP RETURN 



j'tEST 140 BASIC BGT TEST WITH Z = 1 AND N,Y = 22^ 

;.*************************** ********* ******************** 

TST140: 

MOV #140,R0 ;>LOAD RO WITH TEST NUMBER 



1$: 
2$: 
3$: 



CCC 
SEZ 



BGT 
BR 



HALT 
BR 



3$ 

TST141 



1$ 



;CLEAR FLAGS 
;SET Z 

>TEST THE BGT-IT SHOULD NDT BR 
;;GO TO SCOPE LOOP EXIT 

>BGT FAILED 
>ERROR LOOP RETURN 



• a "WW IfftX WW ltlt WWKWHWTtKW W It W WW W WW W W W W W H WWW W W W W W W KIT W W W W W RXITIIRIRRK 

;*TEST 141 BASIC BGT TEST WITH Z = AND N,V =22 

J .*****4^ **************************************** *********** 

TST141 : 

MOV #141, RO >;L0AD RO WITH TEST NUMBER 

1$: CCC ;CLEAR FLAGS 

2$: 



3$: 



HALT 

BR 



TST142 



IS 



?>TEST THE BGT - IT SHOULD BR 

;BGT FAILED 

; ERROR LOOP RETURN 



.J*************************************************************** 

/"TEST 142 BASIC BGT TEST WITH Z = 1 AND N,V = 01 

< . *****l* *********************************************** ********* 

TST142 : 

#142, RO ;;LOAD RO WITH TEST NUMBER 



1$: 
2$: 
3$: 



MOV 



CCC 
266 



BGT 
BR 



HALT 

BR 



TST143 



IS 



JCLEAR FLAGS 

/MAKE N,V = 01 AND Z = 1 
;TEST THE BGT-IT SHOULDN'T BR 

;;go to next test 

;bgt failed 

; error loop return 



. . *************************************************************** 

$*TEST 143 BASIC BGT TEST WITH Z = 1 AND N.V = 10 

i.**^* **********************************$***********#*** ********* 

TH3! MOV #143,R0 >>LOAD RO WITH TEST NUMBER 
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3977 
3978 
3979 
3980 
3981 
3982 
3983 

mi 

3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 

*82* 

mi 

4025 
4026 
4027 
4028 
4029 
4030 

m 



12 



011314 
011316 



81 



1320 
1322 



011330 
011332 



011350 
011352 



000257 
000274 

003001 
000402 

000000 
000772 



011324 

011324 012700 



000257 
000276 



011334 003001 
011336 000402 

81118 888W 



011344 

011344 012700 



000257 
000272 



011354 

011354 003002 



011356 000000 
011360 000773 



011362 

011362 012700 



011366 000257 



011370 

011370 101002 



011372 000000 
011374 000774 



000144 



000145 



000146 
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IS: 
2$: 
3$: 



CCC 
274 

BGT 
BR 

HALT 

BR 



3$ 

TST144 



1$ 



;CLEAR FLAGS 

5MAKE Z = 1 AMD N,V = 10 

;TEST THE BLT-IT SHOULDN'T BR 
;;GO TO NEXT TEST 

;BLT FAILED 

; ERROR LOOP RETURN 



*************************************************************** 

TEST 144 BASIC BGT TEST WITH Z = 1 AND H. 

********************************************** 



j*TEST 144 
••****• • - 

T5T144 



1$: 
2$: 
3$: 



MOV 



CCC 
276 



BGT 

BR 



HALT 

BR 



BASIC BGT TEST WITH Z = 1 AND N 4 V = 11 
******************************* 

#144, RO >)LOAO RO WITH TEST NUMBER 

,V = 11 



*••*•*•**••* 



;CLEAR FLAGS 
>HAKE Z = 1 AND N, 



3$ 

TST145 



IS 



;TEST THE BGT-IT SHOULD NOT BR 
>;GO TO NEXT TEST 

;BLT FAILED 
JERROR LOOP RETURN 



i *************************************************************** 

BASIC BGT TEST WITH Z=0 AND N,V = U 
************************************** ******************* 



>*TEST 145 

• ; ******** 



f£ri45 
1$: 
2$: 
3$: 



CCC 
272 



HALT 

BR 



#145,R0 



IS 



?;LOAD RO WITH TEST NUMBER 



/CLEAR FLAGS 
/MAKE N:C=1010 



;;TEST THE BGT - IT SHOULD BR 



/BGT FAILED 
/ERROR LOOP RETURN 



;*TEST 146 BASIC BHI TEST WITH Z,C = 00 

• • ********************* ********************* 



TST146S 

1$: 
2$: 



3S: 

5*i 



MOV 
CCC 

BHI 

HALT 

BR 



#146,R0 



TST147 
1$ 



*****••***••***•*•«** 

;>LOAD RO WITH TEST NUMBER 
;MAKE Z,C = 00 

>;TEST THE BHI-IT SHOULD BR 

;BHI FAILED 

; ERROR LOOP RETURN 



************ ******************** ******************** *********** 

TEST 147 BASIC BHI TEST WITH Z<C = 01 

****** **************************** ****************** *********** 
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4033 
4034 

tm 

4037 
4038 
4039 
4040 
4041 
4042 

484! 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 



4055 

P 

4058 

mi 

4063 

m 

4066 

4ota 

4069 

«s 

4072 
4073 



40] 



4586 
4087 
4088 



101001 

000402 



000000 
000772 



011376 
011376 



011402 
011404 



011406 
011410 



011412 
011414 



811118 

mm 

011426 
011430 

011432 
011434 



011436 
011436 

8111*3 
811U8 

011452 
011454 



Hilii 



011476 005403 



012700 000147 



000257 
000261 



012700 000150 

292257 
000264 

101001 
000402 

000000 
000772 



012700 000151 



257 
265 



101001 
000402 

000000 
000772 



ill] " 
000266 



502 00140 



JO0002 



000002 
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T147 BASIC BHI TEST WITH Z # C = 01 



TST147: 

1$: 
2S: 
3$: 



MOV 



CCC 
SEC 



BHI 
BR 



#147/R0 



3$ 

TST150 



HALT 

BR 



>*TEST 150 
• • ****** ******** 

TST150: 

MOV 



IS 

ii s *.s.. H ..*ii§i..n** z .4* 



?>LOA!> RO WITH TEST NUMBER 

/CLEAR FLAGS 
>MAKE Z/C = 01 

/test the bhi-it should not br 
;;go to next test 

;bhi failed 
;error loop return 



********************* 



IS: 
2S: 
3$: 



CCC 
SEZ 



BHI 
BR 



HALT 

BR 



#150, RO 



3$ 

TST151 



;?LOAD RO WITH TEST NUMBER 

JCLEAR FLAGS 
;make Z,C = 10 

;TEST THE BHI-IT SHOULD NOT BR 
;>GO TO NEXT TEST 



JBHI FAILED 
; ERRf 



1$ ; ERROR LOOP RETURN 

;£*••**••***•*******••*•*****•••**••*••••**•*•*••*••***•*•******* 



nmu.i.*..., 

TST151: 

MOV 



IS: 
2S: 
3$: 



CCC 
265 



BHI 
BR 



HALT 

BR 



#151,R0 

3S 

TST152 
IS 



••*****•*• *********** 



?;LOAD RO WITH TEST NUMBER 

JCLEAR FLAGS 
/MAKE Z,C = 11 

;TEST THE BHI-IT SHOULDN'T BR 
;;GO TO NEXT TEST 

;BHI FAILED 
; ERROR LOOP RETURN 



1*5**1*2 



T5T152: 



BASIC NEC MODE TEST 
**************************** 



IS: 



2S: 



MOV 
MOV 
MOV 
CCC 
266 

NEG 

BPL 
BEQ 



152/RO 



R3 



; J LOAD RO WITH TEST NUMBER 
;RESULT S 7 B = 177776 
; INITIAL CDEST3 = 2 
/CLEAR FLAGS 
;MAKE n:c = 0110 

;test the neg 
;did n:c = 1001? 
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40E 
40' 



ml 

4095 

II 

4099 
4100 

ml 

4103 
4104 

ml 
mi 
mi 

ml 
mi 

4115 
4116 

ml 

mi 

4121 
4122 
4123 
4124 
4125 
4126 

ml 
mi 

4131 



4 

4135 
4136 

ml 
mi 
mi 

4143 
4144 



011504 
011506 

mm 
mm 
mm 



011524 
0I1||4 

011540 
011544 

011546 

011554 
011556 
011560 
011562 
011564 



011566 
011566 
011572 
011600 
011604 



21 



1612 
1614 



011616 
011620 



J02401 
103402 

000000 
000765 

Uttll 

QQ0000 
000761 



mm 



000; 

162737 



020412 
11403 



000765 



mm 

012703 
000257 



mm 

000000 

000767 



012700 
010605 
010506 
012703 
012746 



000153 
000.002 

mm 



000002 063312 



000154 

000002 063312 
000004 



011606 163703 063312 



000155 



MACY11 30A(1052) 
T152 



15-NOV-78 



BASIC NEG MODE TEST 

if 



3$! 

4$: 
5$: 



BVS 
BCS 



HALT 

BR 



CMP 

BEQ 



HALT 
BR 



1$ 

R3,R4 
TST153 



IS 



15:26 PAGE 79 
: CDEST3 GT 



>NEGATE FAILED TO ALTER CODES PROPERLY 
JERROR LOOP RETURN 



SEQ 0078 



;CORRECT RESULT? 
>;BR IF YES 

;NEG DELIVERED WRONG RESULT 
;ERR0R LOOP RETURN 



*************************************************************** 

********************* 



>*TEST 153 " BASIC "SUB tilt" "ST 
J j ****************************************** 

TST153: 

§MBUF0,R2 



1$: 
2$: 



3$: 



MOV 
MOV 
MOV 

MOV 
CCC 

SUB 

CMP 
BEQ 
MOV 
HALT 

BR 



;;LOAD RC 
;RF 



#2,8#MBUF0 

R4,(R2) 
TST154_ 



^ WITH TEST NUMBER 

. ESULT S / B = 2 
;R2 POINTS TO DEST 
;INITIAL CDEST3 = 4 
;CLEAR FLAGS 

/TEST THE SUB 

>RESULT=2? 
;;BR IF YES 
;GET WAS DATA 

;SUB DELIVERED WRONG RESULT 
JERROR LOOP RETURN 



(R2),R3 
IS 

*************************************************************** 

******************* 



;*TEST 154 BASIC "SUB »# C RN" TEST 

j . i* ********* ***** ********** •*****••*•***•***• 



T154: 



IS: 
2$: 



3$: 



MOV 
MOV 
MOV 
CCC 

SUB 

CMP 
BEQ 

HALT 

BR 



fl54,R0 
' 1MBUF0 



fell! 1 



p#MBUF0,R3 

R4,R3 
TST155 



1$ 



;;load ro with test number 

* 5RC ~ 1 

;INITIAL CDEST3 = 4 
; SCOPE SYNC 

>TEST THE SUB 

;RESULT=2? 

;;br if yes 

;sub delivered wrong result 
jerror loop return 



..*************************************************************** 

;*TEST 155 BASIC "RTS RN" TEST - <N:C> = 1111 

^. t* ***************** ********************************* *********** 

TST155: 

MOV #155, RO ;;LOAD RO WITH TEST NUMBER 

MOV SP,R5 ;§AVE SP 

IS: MOV R5/SP ;RESET SP FOR ERROR LOOP 

MOV #4$,R3 >RTS SHOULD LOAD PC FROM <R3) 

MOV #-l,-(SP) ;RTS SHOULD LOAD R3 FROM STACK 
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4145 
4146 
4147 
4148 
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011642 
011644 
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"KTS RN" TEST - <N:C> = 1111 



mi 

4151 



4155 
1156 



4159 
4160 



4164 

in 



4167 

ilH 

4171 
4172 

mi 
mi 
mi 

4179 
4180 
4181 



mi 
m 

41 8§ 

ml 

4191 

H94 
4195 

P 

4ili 

4200 



mm 

011656 
011660 

mm 



011700 
011702 

011704 
011706 



WW* 
mih 

011720 
011724 

011726 

mm 

011734 
011736 

011740 
011742 



000277 
000203 

mm 

mm 
102001 

103402 

88892? 



011666 020327 177777 

011672 001402 

)1U 

011676 000754 



4163 011674 000000 



020506 
001402 



000000 
000750 



m 

8^025^ 
000207 

mm 

020605 
001402 

000000 
000765 



000156 



011734 



011744 

011744 012700 000157 

011750 032737 000010 063234 

011756 001401 



T155 

2$: 
3$: 

4$: 

5$: 
6S: 
7S: 
8$: 
9$: 



BASIC 

SCC 

RTS 

HALT 
BR 

BPL 
BNE 
BVC 
BCS 

HALT 

BR 

CMP 

BEQ 

HALT 

BR 

CMP 
BEQ 

HALT 

BR 

• • *********** 

> 4 TEST 156 
• . *********** 

TST156: 

MOV 



SEQ 0079 



R3 



IS 

5$ 
5S 
55 
6$ 



1$ 



>n:c = nil 

;TEST THE RTS - GO TO 4$ 

SRTS FAILED TO LOAD THE PC 
>LOCK ON ERROR 

>N:C = 1111 ? 



>RTS ALTERE 
>L0CK ON EF 



R3,»-l 



IS 

R5,SP 
TST156 



IS 



) CODES - CLEARED ONE 

?0R 



;DID R3 GET LOADED FROM STACK 7 
JBR IF YES 

;RTS FAILED TO LOAD REG 
JLOCK ON ERROR 

JDID RTS POP THE STACK POINTER ? 
;;BR IF YES 

;RTS FAILED TO POP SP 
;LOCK ON ERROR 



**************************************************** 

BASIC "RTS PC" TEST 
************************* 



MOV 
MOV 
MOV 
CCC 

RTS 

HALT 

3R 

CMP 

BEQ 

HALT 

BR 



• • *********** 

;*TEST 157 
• .a********** 

TST157: 

MOV 

. SBTTL USER C 
BIT 
BEQ 



IS: 

2$: 
3$: 

4$: 

5$: 



R5<SP 
#4$,-(SP) 



PC 



1$ 

SP,R5 
TST157 



1$ 



>** **************** ******* 



//LUALI KU Hin IbDI III 

;save the original sp 
>reset sp for error loop 
>push new pc on stack 
;scope sync 

>test the rts - go to 4$ 

;rts failed to load pc 
;lock on hard error 

;did sp get popped ? 
;;br if yes 

jrts failed to update sp 
;lock on hard error 



**************************************************** 

BASIC "JSR PC,flf»" TEST 
**************************************************** 

#157*80 ;;LOAD RO WITH TEST NUMBER 

ONTROLLED BREAKPOINT — BIT3 



#BIT3/g#BPTLOC 
. + 4 



/BREAKPOINT HALT SET ?? 
;BR IF NOT 
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USER CONTROLLED BREAKPOINT — BIT3 



PACE 81 



SEQ 0080 



4241 
4242 



4251 
4252 



011760 
011762 
011764 
011766 



011774 
011776 



012000 
012004 



012006 
012010 



012012 
012012 
012016 
" "120 



012042 
012044 

012046 
012052 
012056 

012060 
012064 
012066 

012070 
012072 

012074 
012076 



012100 
012100 
012104 
012106 
012110 
012112 



000000 
010605 
010506 
000257 



011770 004737 012000 



000000 
000772 



022726 
001402 



000000 
000765 



012700 
010605 
010506 
012746 
012746 
005037 
000257 



012040 000002 



000000 
000765 

013702 
022702 
001404 

010237 
000000 
000754 

020605 
001402 

000000 
000750 



012700 
010605 
010506 
005046 
012746 



011774 



000160 



000357 
012046 
177776 



177776 
000357 



177776 



000161 
012130 



1$: 

2S: 
3$: 

4$: 

5$: 



HALT 
MOV 
MOV 
CCC 

JSR 

HALT 

BR 

CMP 

BEQ 

HALT 
BR 



SP/R5 
R5,SP 



JBREAK - DEPRESS CONTINUE TO RESTART 
>SAVE ORIGINAL SP 
;RESET SP FOR ERROR LOOP 
;SCOPE SYNC 



PC/9#4$ ;TEST THE JSR - GO TO 4$ 



IS 



f 3 sff6 S P) + 



IS 



>JSR FAILED TO LOAD PC 
}LOCK ON HARD ERROR 

;DID JSR SAVE OLD PC ON STACK ? 
?>BR IF YES 

>JSR FAILED TO SAVE OLD PC 
;LDCK OS HARD ERROR 



**•••••**•*•••***•****< 



j*.§§.*.*2 

TST160: 



********* 



BASIC "RTI" TEST - N?C=00OQ 
****************** ********** 





MOV 




MOV 


1$: 


MOV 


MOV 




MOV 




CLR 




CCC 


2$: 


RTI 


3$: 


HALT 


BR 


4$: 


MOV 




CMP 




BEQ 




MOV 


5$: 


HALT 




BR 


6$: 


CMP 




BEQ 


7$: 


HALT 


BR 



A160.R0 

SP,R5 

R5.SP 

»357,-(SP) 

|4S < -(SP) 

9#PS» 



IS 



tPSW,R2 
557/R2 



K2/9&PSW 
1$ 

SP/R5 
TST161 

1$ 



r ******* I 



********************* 

;;LOAD RO WITH TEST NUMBER 
>SAVE THE SP 

;RESET THE SP FOR ERROR LOOP 
;NEW PSW = 357 
/NEW PC = 4$ 
JMAKE CPSInn = 000 
/MAKE N:C=0000 

jtest the rti - go to 4$ 

;rti failed to load pc 
;loop on hard error 

;save the cpsw3 in r2 
;was epsw: = 357 ? 

;BR IF YES 

;RESTORE THE ERROR PSW 
JRTI FAILED TO LOAD PSW 
jLOCK ON HARD ERROR 

;DID SP GET UPDATED OK ? 
;>BR IF YF.S 

>RTI FAILED Tn UPDATE THE SP 
;LOCK ON HARD ERROR 

c*********************** 



s*** ****************< 



••**•**•**«** *** •* 1 

>*TEST 161 BASIC "RTI" TEST WITH N:C=1111 

••**•****{•**•*•*****••*** **************** f***i 

TST161: 

MOV #161 £ R0 ;jLOAD RO WITH TEST NUMBER 

MOV SP/R5 ;SAVE THE SP IN R5 

1$: MOV R5 f SP ; RESET SP FOR ERROR LOOP 

CLR -(SP) ;NEW PSW = 000000 

MOV (?4$,-(SP) ;NEW PC = 4$ 



CQKDA-C KD11-K BASIC LOGIC TESTS 
CQKDAC.P11 07-NOV-78 14:09 



MACY11 30AU052) 15-NOV-78 15:26 PAGE 82 
T161 BASIC "RTI" TEST WITH N:C=1111 



SEQ 0081 



012116 
012124 



012737 
000240 



000002 



000357 177776 



177776 
000000 



177776 




177776 



2$: 
4$: 



MOV 
NOP 

RTI 

MOV 
CMP 
BEQ 

MOV 
HALT 

BR 



#357,§#PSW 



JPSW/R2 

0,R2 

ST162 

R2,(J#PSW 
1$ 



;MAKE OLD PSW = 357 
>SCOPE SYNC 

;TEST THE RTI - GO TO 4$ 

;GET THE PSW 
;WAS CPSW3=000 
;;BR IF YES 

)restore error psw 
;rti failed to clear psw 
>lock on hard error 



*************************************************************** 

TEST 162 BASIC "IOT" TEST -VERIFY LOADING PSW WITH 357 



3$: 

J* ._ ... 

***************************************************************** 

TST162! 

" " >;LOAD RO WITH TEST NUMBER 

>SAVE THE SP 

/RESET SP FOR ERROR LOOP 
;SKT UP IOT VECTOR 



1$: 



2$: 
3$: 

4$: 



5$: 
6$: 

7$: 
8$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

IOT 

HALT 

BR 

MOV 
CMP 

BEQ 

MOV 
HALT 

BR 

CMP 
BEQ 

MOV 
HALT 

BR 

TST 

BEQ 



R5,SP 



mm 2 

6$ 

R2,8#PSW 

IS 

g3$,(SP)* 

R2/9#PSW 
1$ 

(SP1 + 
TST163 

R2,8#PSW 
1$ 



?IOT SHOULD CHANGE -1 TO 
/MAKE CPSW3 r 000 
J SCOPE SYNC 

;TEST THE IOT 

;IOT FAILED TO LOAD PC 
;LOCK ON HARD ERROR 

>GET THE PSW 

;DID IOT LOAD A 357 ? 

/BR IF YES 

^RESTORE ERROR PSW 
;IQT FAILED TO LOAD PSW 
/LOCK ON HARD ERROR 

;DID IOT SAVE OLD PC ? 
;BR IF YES 

JRESTURE ERROR PSW 

;ICT FAILED TO SAVE OLD PC 

;LOCK ON HARD ERROR 

JDID IOT SAVE OLD PSW ? 
;>BR IF YES 

;RESTORE ERROR PSW 
;IOT FAILED TO SAVE OLD PSW 
;LOCK ON HARD ERROR 
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BASIC "IOT" TEST - VERIFY LINKAGE TO SCOPE SERVICE 



SEQ 0082 




012454 
012460 



2726 
1404 

010237 
000000 
000740 



005726 
001404 



010237 
000000 



000163 



063244 
061612 
000022 



063244 



000164 



000020 



012410 000020 

000357 000022 

177777 177776 
177776 



177776 
000357 

177776 

012404 
177776 

177776 



TST163: 

IS: 



2S: 



3S! 



4$i 
••**•*• 

J*TEST 
• •***•* 

TST164: 



IS: 



2$: 
3$: 

4Si 



5$: 
6$: 

7$: 
8$: 

9$: 



MOV 
HOV 
MOV 
CLR 
MOV 
CLR 
CCC 

SCOPE 

COM 

8EQ 

HALT 

BR 

MOV 
****** 

164 

****** 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

IOT 

HALT 

BR 

MOV 
CMP 
BEQ 

MOV 
HALT 

BR 

CMP 

BEQ 

MOV 
HALT 

BR 

TST 

BEQ 

MOV 
HALT 




||SCOFLG 



1$ 

R5,SP 

************* ****** J 

BASIC "IOT" TEST 
*******************< 



;;load ro with test number 

JSAVE SP 

JRESET SP FOR ERROR LOOP 

;TRAP SERVICE WILL COM "SCOFLG" 

>SET UP IOT VECTOR 

;SCOPE SYNC 

;TEST THE IOT 

;SCOFLG SHOULD BECOME 000000 
;BR IF IT DID 

;IOT FAILED TO LINK TO SCOPE SERVICE 
JLOCK ON HARD ERROR 




IS 

mm 2 

R2,9#PSW 

is 

|3$,<SP)* 

R2/@#PSW 
1$ 

(SP) + 
TST165 

R2,I?#PSW 



jjload ro with test number 
jsave the sp 

/reset sp for error loop 
;set up iot vector 

jiot should change -1 to 
;make cpsw3 = 000 
jscope sync 

>test the iot 

jiot failed to load pc 
jlock on hard error 

;get the psw 

;did iot load a 357 ? 

;BR IF YES 

JRESTORE ERROR PSW 
JIOT FAILED TO LOAD PSW 
JLGCK ON HARD ERROR 

;DID IOT SAVE OLD PC ? 
JBR IF YES 

; RESTORE ERROR PSW 

MOT FAILED TO SAVE OLD PC 

JLOCK ON HARD ERROR 

jdid iot save old psw ? 
jjbr if yes 

;restore error psw 

;iot failed to save old psw 
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BASIC "IUT" TEST -VERIFY LOADING PSW WITH 357 



SEQ 0083 



4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 

mi 

4388 
43 89 
4390 



4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 

xwi 
aa 

4423 
4424 



012462 000732 



012464 
012464 
012470 
012472 
012474 
012502 
012506 
12514 



oi: 



012520 
012524 



J526 
012532 



01: 

011-._ 
0125J4 

012536 



\\\m 

H2544 
1546 
$550 
012554 
012560 
012566 

012570 

mm 

012612 

012614 
012616 



WWW 



012630 
012636 



012700 
010605 
010506 

vm 

012737 
000277 



012516 000004 



013702 
001404 

010237 
000000 
000756 

010506 



mi 

.0506 

Mm 

012737 
000257 

104401 



005037 



000165 



012520 000020 
000022 

000340 177776 



177776 
177776 



000166 



063236 
000036 

062202 000034 



063166 000034 
000340 000036 
063236 



012700 000167 



IS 



;LOCK ON HARD ERROR 



J*TEST 
• ■ ****_ 

TST165! 



******* **************************************************** 

165 



2S! 



3S! 



MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
SCC 

IUT 

MOV 

BEQ 

MOV 
HALT 

BR 

MOV 
******* 

166 
******* 

MOV 
MOV 
MOV 
CLR 
CLR 
MOV 
CCC 

TYPE 

MOV 
MOV 
COM 
BEQ 

HALT 

BR 



> *********** 



IS: 



2$: 
4$: 

3$: 

6$: 
..**** 

tsti66 

IS: 



RS.SP 

Uh** 20 

#340,9#PSW 



g|PSW,R2 

R2,9#PSW 
IS 

R5,SP 



JjLOAD RO WITH TEST NUMBER 
JSAVE THE SP 

;RESET SP FOR ERROR LOOP 
JSET UP IOT VECTOR 

JMAKE CPSW3 = 340 
/MAKE N:C=1111 

jTEST THE IOT 

JGET THE CPSW3 
;BR IF CPSW3 a 000 

JRESTORE THE ERROR PSW 

JIOT FAILED TO CLEAR THE PSW 

JLOCK ON HARD ERROR 



JRESET THE SP BEFORE CONTINUING 
********************* ************** ******** ********* 

BASIC "TRAP" TEST - LINKAGE TO PRINT ROUTINE 
**************************************************** 



;*TEST 
;>****' 
TST167: 



JJLOAD RO WITH TEST NUMBER 
JSAVE THE SP 

;RESET SP FOR ERROR LOOP 
/INITIALIZE TEST FLAG 
JSET UP THE "TRAP" VECTOR 

JSCOPE SYNC 

;TEST THE TRAP 

;SETUP TRAP VECTOR 

;SHOULD MAKE CPRIFLG3 = 000000 
j;BR IF IT DID 

JTRAP FAILED TO LINK TO PRINT SERV. 
;LOCK ON HARD ERROR 

**************************************************** 

BASIC "EMT" TEST - LINKAGE TO ERROR SERVICE 
**************************************************** 



R5/SP 

SPRIFLG 
36 
RINA,(?#34 



IS 



062040 000030 
000032 



IS! 



MOV 
MOV 
MOV 
MOV 
CLR 



<fl67,R0 
SP,R5 
R5 SP 

|||RA, e #30 



JjLOAD RO WITH TEST NUMBER 
JSAVE THE SP 

JRESET SP FOR ERROR LOOP 
JSET UP THE EMT VECTOR 
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BASIC "EHT" TEST - LINKAGE TO ERROR SERVICE 



4425 
4426 
4427 
4423 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
44^2 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 



012642 
012646 



012652 
012656 



012660 
012662 



012664 
012664 
012670 
012672 
012700 
012706 
015710 

012714 

012716 

012720 
012724 

012726 
012730 

012732 
012740 



013004 
013010 



305037 
300257 



012650 104000 



005137 
001402 



000000 
000761 



012700 
010605 
012737 

0105^6 
005037 

000257 

000007 

005137 
001402 

000000 
000766 

012737 
012737 



012746 

012746 012700 

012752 010605 

012754 012737 

012762 012737 

012770 010506 

01277" 



005037 063250 



012776 000257 
013000 005737 



305137 
301402 



013012 000000 
013014 00076S 



177700 
063250 



88881* 



063240 



063240 



000170 



061114 
000340 



063246 



063246 



061122 000010 
000340 000012 



000171 



061212 000004 
000340 000006 



2$: 



3$: 
• • **** 

;*TEST 
•;**** 
TST170 



IS: 



2$: 



CLR 
CCC 

ERROR 

COM 
BEQ 

HALT 
BR ' 
********** 



8#ERRFLG 



flf ERRFLG 
¥§T170 



}EMT SERVICE HILL COM CERRFLGD 
; SCOPE SYNC 



{TEST THE EMT 



;DID EMT SERV. COM ERRFLG? 
;>BR IF YES 



{EMT DID NOT LINK PROPERLY 
IS {LOCK ON HARD ERROR • 

******** **••*•*****••***•****•**•**••* •****•*•*« 



170 ' BASIC TEST OF RSVD INSTR. TRAP LINKAGE 
****************************** ***************5**** 



3$! 



4$: 



j . **** 

{'TEST 
•••*** 

TST171 



is: 



2Si 



3S: 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 

CCC 

000007 

COM 
BEQ 

HALT 

BR 

MOV 
MOV 



i^Ri" 

MP*" 

«#PSVFLG 



||RSVFLG 



IS 



1*340/ 



********* 

{{LOAD RO WITH TEST NUMBER 
{SAVE THE SP 

{SET UP RSVD INSTR. TRAP VECTOR 

{RESET SP FOR ERROR LOOP 
{INITIALIZE TEST FLAG THAT WILL GET 
{COMPLEMENTED BY TRAP SERVICE 
{SCOPE SYNC 

;FORCE RSVD INSTR. TRAP 

{TEST FLAG SHOULD GO TO 000000 
;BR IF TRAP SPRUNG 

;RSVD INSTR. TRAP FAILED 
/LOCK ON HARD ERROR 

;SET UP RSVD INSTR TRAP VECTOR TO POINT 
;T0 ERROR SERVICE ROUTINE 



a********************************************************** 

171 BASIC TEST OF BUS TIMEOUT TRAP LINKAGE 

************************************************** 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 

CCC 

TST 

COM 
BEQ 

HALT 

BR 



|171 £ R0 



or,R5 

5bETST,«#4 
#340, 6 
R5,SP 
9#BERFLG 



0*177700 



JBERFLG 
5T172 



1$ 



*********** 

{{LOAD RO WITH TEST NUMBER 
{SAVE THE SP 

;SET UP THE BUS ERROR VECTOR 

> RESET SP FOR ERROR LOOP 
; INITIALIZE TEST FLAG THAT WILL GET 
J COMPLEMENTED BY TRAP SERVICE 
;SCOPE SYNC 

{FORCE BUS TIMEOUT USING RO ADDR. 

;TEST FLAG SHOULD GO TO 000000 
;;BR IF TRAP SPRUNG 

;BUS ERROR FAILED TO SPRING TRAP 
/LOCK ON HARD ERROR 



i *************************************************************** 
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MACY11 30AU0 
T172 BASIC 



52) 15-NOV-78 15:26 PAGE 86 
TEST FOR ACCESSING DL11 REGISTERS 



4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 

m 

4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 

M 

4514 
4515 
4516 
4517 

P 

452? 
4522 
4523 



45; 



452 
45^ 



4533 
4534 
4535 
4536 



013016 
013016 
013022 
013026 

mm 

Moil 

-13052 
013054 
013060 

013062 
013064 

mm 



013074 
013076 
013100 

013102 
013110 



Pi! 

P 

013136 
013140 



3142 
"144 
146 



* 5 



ill 



156 

liS 



012700 
005067 
005367 



005722 

mm 

005712 



013072 000403 



mm 

000764 

012737 
012737 



313166 
313172 



Ol57( 

w 

005001 
000257 

020412 

001405 
005301 
001374 



mm 

012704 
005012 



000172 
050264 
050260 

013074 000004 
000340 000006 



177560 



;*TEST 172 BASIC TEST FOR ACCESSING DLll REGISTERS 

• •******•**••*•* *********************** *************** *********** 

T5T172: 

MOV #172/R0 



061220 000004 
000340 000006 



11$: 



1$J 



2S! 



3$! 



4S: 



CLR 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

TST 

11? 
TST 



TST 
HALT 

BR 

MOV 



mbuf5 

MB UFO 
US 

13 40, 
SP/R5 
R5,SP 
#RCSR 

(R2) + 
<R2)> 
(R2}> 
(R2) 

45 

-(R2) 
1$ 



#4 ;SET UP 

m 



,R2 



;;load ro with test number 
{i nit stall counter 
{count the timer 
{br if no timeout 
bus timeout vector 

;save th sp 

;reset sp for error loop 

{CR23 = STARTING DLll ADDR • 
{ SCOPE SYNC 



{REFERENCE DL11 

{REFERF 

{REFERE 
{REFERENCE 

{GO TO NEXT TEST 

{BAD ADDRESS IN R2 



liKE Bfc 1 

JENCE DLll - 



RCSR 
RDBR 
XCSR 
XDBR 



MOV 

I *********** 

►TEST 
t ' ***** 

TST173: 



>*TEST 173 
• • *********** 



tBERR< g#4 



000200 



1$: 



2$s 



3S: 



MOV 
MOV 
MOV 
CLR 
CLR 
CCC 

CMP 

BEQ 
DEC 
BNE 

MOV 
HALT 

BR 



»173<R0 
iXCSft#R2 
1200, R4 
Jr2, 



R4,(R2) 

TST174 
Rl 
2$ 



{ONE OF DLll AODR'S CAUSED TIME OUT 
{LOCK ON HARD ERROR 

;SET UP BUS ERROR VECTOR TO POINT 

l .***2*i*528.*i*l(*S* : .52*'.'*2* : * *••*••* 



{{LOAD RO WITH TEST NUMBER 
{DEST ADDR = XCSR 
{RESULT S / B = 200 
{CLEAR CDEST3 
>SET UP TIMEOUT COUNTER 
{SCOPE SYNC 

{TEST READY BIT - IT SHOULD BE SET 

{{BR IF IT WAS 
{TICK-TOCK GOES THE TIMER 



(0) 



• • *********** 

{•TEST 174 
- - *•••••*•*** 



00200 



4s 



{BR IF NOT A TIMEOUT 

(R2),R3 
1$ 

**************************************************** 

BASIC TEST OF DLll - XCSR - MA INT BIT (0) 
•****•••********•***•****••*•••••****•*** *********** 



{GET THE WAS DATA 

{ READY BIT IN XCSR FAILED ON A 

{LOCK ON HARD ERROR 



T174: 



1$: 



MOV 
MOV 
MOV 

CLR 



XCSR.lb 

200,R4 

R2) 



{{LOAD RO WITH TEST NUMBER 
{DEST ADDR = XCSR 
{RESULT S / B = 200 
{CLEAR MAINT. BIT 
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453§ 
4539 

M 
m 



013174 
013176 
013200 




000004 



005001 

112462 000006 

105712 

100404 

005301 

001374 
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T174 BASIC TEST OF DL11 - XCSR - MAINT BIT (0) 



2$: 



3$: 



CMP 

BEQ 



R4,(R2) 
TST175 



;scope sync 

;test maint(O) 

;;br if maint bit clear 



MOV 
HALT 
BR 1$ 



(R2),R3 



>GET THE HAS DATA 
JCIN'T CLEAR MAINT E 
JLOCK ON HARD ERROR 



(***••*»*•* 



. . *****••****•**••****•••***••**•* ******************** «♦****«*«** 

>*TEST 175 BASIC TEST OF DLll XCSR - MAINT BIT si 

**•*•****•*•*•*•***••• **•*»*•*£*••*•**•**• 4*** »***»**« 

T5T175: 

MOV Jfl75,R0 //LOAD RO WITH TEST NUMBER 

MOV |XCSR,R2 >DEST ADDR - XCSR , 

MOV #204,64 JRESULT S / B = 204 

1$: MOV l4/(ft2) ?SET THE MAINT. BIT 

"COPE 



2$: 



3$! 



CCC 
CMP 
BEQ 



;scc 



SYNC 



R4,(R2) 
TST176 



MOV 
HALT 
BR 13 



(R2),R3 



;TEST MAINT. (1 ) 

;;br if it was 
;get the mas data 

;CAN'T SET MAINT BIT IN XCSR 
;LOCK HARD ERROR 



;*TEST 176 BASIC DL11 OUT / IN ECHO 

;THIS ROUTINE USES THE MAI NTE NANCE _MODE_F|A.fUR fi.dF TH 



[EST (MAINT MODE) 



DLll 
STRING CONSISTS 



TO 



jTURN AROUND A STRING OF 8 CHARACTERS TO THE DLll. THIS 

;0F ALTERNATING NULL / DELETE CHARS WHICH ARE NQN PRINTING. THE 8 CHARS 
? ARi_Qy*!?y.X..THEN„RKAD _ BACK ?i INTO_ A_CORE_ BUFF ER__ AND THEN THE^ INPUT ANJ^ 

B 



IF AN ERROR IS DEI 



>OUTPUT CORK BUFFERS ARE CHECKED FOR EQUIVALENCE- -_ - 

>ECTED DURING THE COMPARISON THE ROUTINE HALTS WITH THE WAS AND S / 
)DATA IN K3 AND R4 RESPECTFULLY. A TIMER IS EMPLOYED TO PREVENT THE 
;TEST FROM HANGING IF RECEIVER DONE DOES NOT RESPOND. ^ ^ ^ 
;.******»»*************»***»********************»**************** 

^T176: 

MOV #176, RO ;;LOAD RO WITH TEST NUMBER 

6$: MOV PCSR/R2 >R2 POINTS TO DLll - START ADDR 

* ; REFERENCE DLll INPUT DATA BUFFER TWICE 

;TQ FLUSH RCVR "DONE" BIT 
JR3 POINTS TO CORE INPUT BUFFER 
>R4 POINTS TO CORE OUTPUT BUFFER 
>R5 WILL COUNT 8 CHARS OUTPUT 



1$: 
2$: 



MOV 
MOV 
TSTB 
TSTB 
MOV 
MOV 
MOV 
MOV 

CLR 
MOVB 
TSTB 
BMI 

DEC 
BNE 



(fIBUF ,K3 
|oBUF,R4 
1lO,R5 



H/4(R2) 
Rl 

R4J*,6(R2) 

k! 
2$ 



;TURN ON MAINT MODE 

;R1 USED AS TIMEOUT COUNTER 
>LOAD OUTPUT BUFFER IN DLll 
JRECEIVER DONE SET ? 
;BR IF YES 
JCOUNT THE TIMER 
;BR IF NO TIMEOUT 
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T176 BASIC DLll OUT / IN ECHO TEST (MAINT MODE) 



013324 
013326 



000000 
000750 



116223 000002 

05 

63 




3$: 



4$: 



5$: 



HALT 

BR 



013406 
013410 



CMPB 

BNE 

DEC 

BNE 

BR 

MOVB 

MOVB 

BIC 

BIC 

HALT 

BR 



6$ 



MOVB 2(R2),<R3)+ 
DEC R5 
BNE 1$ 



CLR 
MOV 
MOV 
MOV 



4(R2) 
|OBUF,R4 



|R3)+,(R4)+ 

cItst 

-(R3),R3 
-(R4)<R4 „ 

6$ 



;dlii failed to RESPOND in time 

>LOCK ON HARD ERROR 

;READ THE DLll INPUT BUFFER INTO CORE 

KOUNT ONE CHAR 

;BR IF NOT DONE 8 CHARS 

}TURN OFF MAINT. MODE 
;RESET CHAR COUNTER 
5 RESET INBUF POINTER 
} RESET OUTBUF POINTER 

;INPUT a OUTPUT ?? 
;BR IF NOT 
;C0UNT ONE CHECKED 
JBR UNTIL 8 DONE 
>GO TO NEXT TEST 

;WAS DATA IN R3 CBITS 7:03 
>S / B DATA IN R4 CBITS 7:03 

;STRIP OFF BITS <15:0B> 
. ii ii 

; RECEIVED DATA NOT EQUAL TO OUTPUT DATA 
;LOCK ON HARD ERROR 



CQK0A-C KD11-K BASIC LOGIC TESTS 
CQKDAC.PU 07-NOV-78 14:09 




)13614 
)13614 



013616 



103001 
104005 



mm 



061620 
000340 

mm 

060664 000054 
000340 000026 
001141 



001142 
010000 

063254 

063254 



000177 
013572 



000004 

00261 

103001 
000401 

104005 



000004 

012700 000200 
013701 013614 
000241 



001040 
165326 



Jglllf 001006 
000040 001110 
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T176 BASIC DL11 OUT / IN ECHO TEST (MAI NT NODE) 



SEQ 0088 



JXXXXXXXXXXX] 



3$: 



1$: 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

COMPREHENSIVE INSTRUCTION TESTS////////////////////// 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

;SET UP IOT VECTOR 

>SET UP EMT VECTOR 

>SET UP TRAP VECTOR 

JSET UP POKER FAIL VECTOR 

;DO NOT SIZE BIT SET? 
JBR IF NOT - USE HARDWARE SWITCH REG 
;USE APT SNITCH REG. 

MNHIBIT PRINTING INTRO. I.D. MESSAGE? 
JBR IF YES 

JFIRST TIME INTO "CIT" TESTS ? 
;BR IF NOT - PRINT ID ONLY ONCE 
;SET FLAG TO INHIBIT PRINTING AGAIN 
?IDENTIFY THIS PROGRAM 
;A0DR OF THE ID MESSAGE 
?SET CPU PRIORITY TO LEVEL 000 
; INITIALIZE SCOPE LOOP RETURN 
; ITERATE ON BIT SECTION 32 TIMES 
JPREVENT MISSED TEST ERROR ON 
JFIRST SCOPE CALL 




SUREG,gf SWR 

[once 



§#ONCE 



i||LPADR 



***********************************************************< 



J^TEST 177 
i. ***********< 

TST177: 

SCOPE 



BCC TEST WITH C=l 

k ******** *********** 



2$: 
3$: 



MOV 
MOV 

SEC 

BCC 
BR 



*177,R0 



3$ 

T3T200 



************* ************* •*** 

;C ALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORO 
;MAKE C=l 

;TEST THE BCC, IT SHOULDN'T BR 
>?GO TO SCOPE EXIT 

;BCC FAILED 



*************************************************************** 



;*TEST 200 BCC TEST WITH C=0 

j • ***** ****** ***** ******************* 

TST200: 



****•*•< 



******************** 



2$: 
3$: 



SCOPE 
MOV 
MOV 
CLC 



BCC 
ERROR 



I200/R0 

a#2$,Rl 



TST201 
5 



/call the scope loop utility 
;;load ro with test number 
;load rl with test instruction word 
;make c=o 



?;TEST THE BCC-IT SHOULD BR 
;BCC FAILED 
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Billio 000004 

013622 012700 000201 

013626 013701 013644 

813*3* mm mm 

013642 000277 

013644 103004 

013646 013703 177776 

§11111 8§2ioi 

013656 104001 



1 / UI 

m 



01366C 
01366C 
013662 



000202 



oiiif I oiiiSi 8p2?7 

013676 012702 177776 

013702 000277 

013704 000401 

013706 104005 



mm 

013716 



013720 104001 



177776 



013722 
013722 

01|73? 
0I373S 



000004 

o'- 2 -- 





mil w 

05004 



OQ0203 



513736 012702 177776 
013742 000257 
013744 103404 
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T201 VERIFY NO BRANCH MICROROUTINE DOES NOT CLR FLAGS 



SEQ 0089 



• • *************************************************************** 

;*TEST 201 VERIFY NO BRANCH MICROROUTINE DOES NOT CLR FLAGS 

« . *************************************************************** 

TST201: 

/CALL THE SCOPE LOOP UTILITY 
>;L0AD RO WITH TEST NUMBER 
>L0AD Rl WITH TEST INSTRUCTION WORD 
;S/B PSW 

;0EST = PSW FOR ERROR CALL 
1111 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 

SCC 

BCC 

MOV 

CMP 
BEQ 

ERROR 



|201,R0 
|PSW / R2 



3$ 

11PK' R3 

TST202 



3$; 

;*TEST 202 
•.**»*****♦*( 

TST202: 



;MAKE N:c 

>test the bcc-it shouldn't br 

;get was flags 
;n:c = 1111? 

;>BR IF YES 

;NO BRANCH MICROROUTINE ALTERED CODES 



. ********** ******************************************** ******** * 

;LR FLAGS 

"• j*************************************************************** 



VERIFY BRANCH MICROROUTINE DOES NOT CLR FLAGS 





SCOPE 




MOV 




MOV 




MOV 




MOV 




SCC 


2$s 


BR 


3$: 


ERROR 


4$: 


MOV 


CMP 




BEQ 


5$: 


ERROR 



(202/RO 
IPSW/R2 



4$ 

5 

TST203 



JCALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;S/B PSW 

;DEST = PSW FOR ERROR CALL 
/MAKE N:C = 1111 
;test THE BR 

;JUST IN CASE THE BR DIDN'T WORK 
>GET THE FLAGS 

;n:c = 1111? 

;>BR IF YES 



>BRANCH MICROROUTINE ALTERED CODES 

****** **************** ********************* ******************** 

VERIFY NO BRANCH MICROROUTINE DOES NOT SET FLAGS 
************** *********************************** ****** 



. . •**•••** 

ijissus* 

TST203 



2$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 

CCC 

BCS 



#PSW,R2 



3$ 



/call the scope loop utility 

;;load ro with test number 

;load rl with test instruction word 

>PSi S/B = 

JDEST = PSW FOR ERROR CALL 

;make n:c = oooo 

;TEST THE BCS-IT SHOULDN'T BR 
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mi 

4731 



735 
«3$ 



4739 
4740 

4743 



4741 

mi 

4252 
4753 




4775 

VPn 

4778 
4779 
4780 

4782 
4783 
4784 



014042 
014042 
014044 
014050 
014054 
014056 

014060 
014060 

014062 



104005 



000004 
012700 
013701 
000257 
000264 



003401 
104005 



000206 
014060 
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T203 VERIFY NO BRANCH MICROROUTINE DOES NOT SET FLAGS 



SEQ 0090 



mm 

013754 


mm 

001401 


177776 




MOV 
TST 

BEQ 


jJJPSW,R3 
TST204 


lift Woo 

;;BR IF YES 


013756 


104001 




3$: 


ERROR 


1 


;NO BRANCH MICROROUTINE- ALTERED CODES 


013760 
013760 
013762 

mm 

013774 


000004 
012700 
013701 
005004 
012702 


000204 
014002 

177776 


. . ****** **•**•*•*•******••••***•**•*•*•*••*•******•******• ******* 

;*TEST 204 VERIFY BRANCH MICROROUTINE DOES NOT SET FLAGS 
••****•* ****** ********** ******************** ********************* 

TST204: 

SCOPE ;C ALL THE SCOPE LOOP UTILITY 

MOV #204, R0 ;;LOAD RO WITH TEST NUMBER 

MOV 852$, Rl ;LOAD Rl WITH TEST INSTRUCTION WORD 

CLR R4 >PSW S/B = 

MOV #PSW,R2 ; DEST = PSW FOR ERROR CALL 


014000 


000257 






CCC 




;MAKE N:C = 0000 


014002 


000401 




2$: 


BR 


4$ 


;TEST THE BR 


014004 


104005 




3$: 


ERROR 


5 


;JUST IN CASE THE BR DIDN'T WORK 


014006 
014012 
014014 


013703 
005703 
001401 


177776 


4$: 


MOV 
TST 

BEQ 


jajjPSW,R3 
TST205 


;GET FLAGS 
;n:c = 0000 
j;BR IF YES 


014016 


104001 




5S: 


ERROR 


1 


;RRANCH MICROROUTINE ALTERED CODES. 



••*••* *********************************************************** 

;*TEST 205 BLE TEST WITH Z = 0, AND N,V = 00 

••**^*********** ************************************** *********** 

TST205: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #205, RO ;;LOAD RO WITH TEST NUMBER 

MOV §#2$,R1 ;LOAD Rl WITH TEST INSTRUCTION WORD 

CCC ;CLEAR FLAGS 



2$: 



3$: 



BLE 
BR 



ERROR 



35 

TST206 



JTEST THE BLE- IT SHOULDN'T BR 
;;GO TO SCOPE EXIT 

;BLE FAILED 



t ************************** ******** ***************************** 
TEST 206 BLE TEST WITH Z = 1 AND N.V = 00 

1 . *************** ***************** ******************** *********** 

TST206: 

SCOPE ;C ALL THE SCOPE LOOP UTILITY 

MOV #206, RO ;;LOAD RO WITH TEST NUMBER 

MOV 0#2$,R1 ;L0AD Rl WITH TEST INSTRUCTION WORD 

CCC ;CLEAR FLAGS 

SEZ ;SET Z = 1 



2$: 
3$: 



BLE 
ERROR 



TST207 

5 



?;TEST THE BLE-IT SHOULD BR 
;BLE FAILED 
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4787 



4788 
M 

m 

4795 
4796 

tm 
4799 

4800 
4801 
4802 



11? 



014064 
014064 
014066 
014072 
014076 
014100 

m\n 

014104 



014106 



014126 



000004 
012700 

nm 

00262 

003401 
104005 




0004 

-2700 



014170 101401 



000207 
014102 




00 000211 

8o 3 7 2§7 
000272 

003401 
000401 



000212 
014170 
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T206 BLE TEST WITH Z = 1 AND N,V = 00 

..*»************************************************************* 

;*TEST 207 BLE TEST WITH Z = AND N,V = 01 

' . *************************************************************** 

$ST207: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #207, RO ;;LOAD RO WITH TEST NUMBER 

MOV §#2$,R1 ;L0AD Rl WITH TEST INSTRUCTION WORD 

CCC /CLEAR FLAGS 

SEV ;MAKE Z = AND N,V = 01 



SEQ 0091 



2$: 



3$: 



BLE 
ERROR 



TST210 

5 



;;test THE BLE-IT SHOULD BR 
JBLE FAILED 



,*********** ******** *************************** ****** *********** 

&TEST 210 BLE TEST WITH Z = AND N,V = 10 

« • ********************************************** 

TST210 



(****************** 



SCOPE 
MOV 
MOV 
CCC 
SEN 



Rl 



/CALL THE SCOPE LOOP UTILITY 
JJLQAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 



2$: 
3$: 



BLE 
: SRROR 
************ 

j . I*§I**ii< 
TST211: 

SCOPE 

MOV 

MOV 

CCC 

272 



TST211 

5 



mm 



2$ 



3$ 



BLE 
BR 



/CLEAR FLAGS 
JMAKE Z = AND N,V = 10 



;;test the ble-it should br 
;ble FAILED 



!•*** ************* 

/CALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;CLEAR FLAGS 

;MAKE Z = AND N,V = 11 

;TEST THE BLE-IT SHOULDN'T BR 
j;GO TO SCOPE EXIT 



TST212 

: ERROR 5 JBLE FAILED 

*************************************************************** 



TST212: 

/call the scope loop utility 

f212,r0 >;load ro with test number 

jload rl with test instruction word 
;make z,c = 00 



SCOPE 
MOV 
MOV 
CCC 



2$: 



BLOS 



&#2S,R1 
3$ 



;TEST THE BLOS-IT SHOULDN'T BR 
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4843 
4844 

nk 

4847 
4848 
4849 
4850 
4851 
4852 
4853 
4654 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4962 
4863 
4364 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4980 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4§88 
4889 

4894 
4895 
4896 



014172 
014174 






4176 










4200 





4204 





4210 





4212 


°o\ 


4214 




4214 


014216 



014242 
014242 
014244 
014250 
014254 
014256 

014260 
014260 

014262 



014264 
014264 
014266 
014272 



000401 
104005 



m 

000257 
000261 

101401 
104005 



00004 




- »I 
000257 
000265 



101401 
104005 



000004 



000213 
014214 



00021^ 
01423< 



101401 
104005 



012700 000215 
013703 



014260 
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T212 BLOS TEST WITH Z,C = 00 



3Si 



BR 

ERROR 



TST213 
5 



))go to scope exit 
;blos failed 



.}*************************************************************** 

5*TEST 213 BLOS TEST WITH Z.C = 01 

' « *************************************************************** 

T5T213: 

PE ;CALL THE SCOPE LOOP UTILITY 

tt213/RQ JJLOAD RO WITH TEST NUMBER 

H2$,R1 ;LOAD Rl WITH TEST INSTRUCTION WORD 

> CLEAR FLAGS 
;MAKE Z,C s 01 



8ft 

m 

SEC 



2$: 
3$: 



BLOS TST214 ; JTEST THE BLOS-IT SHOULD BR 

ERROR 5 ;BLOS FAILED 

. . *************************************************************** 

"'TEST 214 BLOS TEST WITH Z.C s 10 

»** ******** *•••*•• 



;*TEST 214 BLOS TEST WITH Z,C ~ 10 

• • ********************************************** 

T5T214: 

J CALL THE SCOPE LOOP UTILITY 



2S: 



3$: 

1* 

TST215: 



SCOPE 
MOV 
MOV 
CCC 

SEZ 



BLOS 
ERROR 



HI!; 



*'8i 



TST215 

5 



;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;CLEAR FLAGS 
>MAKE Z,C = 10 



;>TEST THE BLOS- IT SHOULD BR 
;BLOS FAILED 



« . *************************************************************** 

;*TEST 215 BLOS TEST WITH Z,C = 11 

• • ******************************»*********************i 



t**«* ******* 



2$: 



3$: 



SCOPE 

MOV 

MOV 

CCC 

265 



BLOS 
ERROR 



J215/R0 
?#2$,Rl 



TST216 
5 



;C ALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

JLQAD Rl WITH TEST INSTRUCTION WORD 

>CLEAR FLAGS 

/MAKE Z,C = 11 



>;TEST THE BLOS-IT SHOULD BR 
;8LQS FAILED 



012700 000216 
013701 01431C 



••****••*** *************** ********** ******** ************** ******* 

J*TEST 216 SXT MODE TEST WITH N = AND C = 1 

• • ************** **************************** •* ******** •**•••****• 

TST216: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV P16/R0 J/LOAD RO WITH TEST NUMBER 

MOV 5#2$ # Rl ;LOAD Rl WITH TEST INSTRUCTION WORD 
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4897 
4898 
4899 
4900 
4901 
4902 
4903 

m 

4907 

\m 
\m 

nn 

4914 
4915 

4919 
4920 

nil 
tm 

mi 

4927 
4928 

mi 
m\ 

4933 
4934 
4935 
4936 

4938 

tm 

4941 
49 42 
494 



494 

88 

4948 
4949 
4950 
4951 
4952 



014276 
014300 
014304 
014306 

014310 

014312 
014314 
014316 
014320 

014322 

014324 
014326 



014332 

81P 

014340 

014344 

0] 
01 



014356 
014360 
014364 

014366 
014370 



005004 
012703 
000257 
000263 

006703 



102401 
103401 

104002 

005703 
001401 



014330 104002 



3004 



000004 
01J 
012 

032737 

8oiooi 

005004 
012703 
000257 

006703 
103001 



014372 104002 



014416 006703 

014420 100003 
- - - ■ - 001402 



014 
014 



177777 



000217 
014366 

000020 



177777 




063234 



T216 



2$: 



SXT MODE TEST WITH 



CLR 
MOV 
CCC 
263 

SXT 

BMI 
BNE 
BVS 
BCS 



R4 

#-l/F3 



P3 



15:26 PAGE 94 
M = AND C = 1 

/RESULT S / B = 

;inital dest. op = mm 

; CLEAR CODES 

;n:c = ooil 



JTEST THE SXT 
;DID SXT MAKE N:C 



0101? 



3$: 
4$: 

5$: 



TST 

BEQ 



ERROR 



R3 

TST217 



JSXT FAILED TO ALTER CODES PROPERLY 

>DID RESULT = 0? 
>>BR IF IT DID 

>SXT DELIVERED WRONG RESULT TO R3 
• • *************************************************************** 

;*TEST 217 SXT MODE TEST WITH H = Q AND C = 

\ y *************************************************************** 

TST217: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #217/R0 J J LOAD RO WITH TEST NUMBER 

MOV §#2$ £ R1 >LOAD Rl WITH TEST INSTRUCTION WORD 

— <OLLED BREAKPOINT — BIT4 



.SBTTL USER CONT 
BIT 
BEQ 
HALT 

CLR 
MOV 
CCC 



BREAKPOINT 



»BIT4,(»#BPTLOC 
.♦4 



R4 

#-l/R3 



2$: 

3S: 

l l 
TS 



SXT 
BCC 



ERROR 



R3 

TST220 



BREAKPOINT HALT SET ?? 
;BR IF NOT 
JBREAK - DEPRESS CONTINUE TO RESTART 

;RESULT S / B = 
;INITIAL DEST OP = 177777 
/CLEAR N:C 

JTEST THE SXT 

>>BR IF "C" STILL CLEAR 

>SXT AFFECTED "C" BIT 



*************************************************************** 

TEST 220 SXT MODE TEST WITH N = 1 AND C = 1 

****** **************** ********** ******************** *•*****•••• 

T220: 

;CALL THE SCOPE LOOP UTILITY 
0/RO ;;LOAD RO WITH TEST NUMBER 

$*R1 /LOAD Rl WITH TEST INSTRUCTION WORD 

mmiL a M -~ 177777 

;make n:c - 11] 



2$: 



102401 



SCOPE 
MOV 
MOV 

m 

sec 

SXT 

BPL 

BEQ 
BVS 



i?5 = 



= 



R3 
3$ 



;TEST THE SXT 
;N:c = 1001? 
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4955 

w 

4958 
4?59 
4960 

m 

4963 
4964 
4965 
4966 
42 §* 

w 

4970 

m 

4977 

«}S 

4980 
4981 

4985 
4986 

ml 

4989 
4990 

m 

4993 
4996 

tm 

4999 
5000 



5003 
5004 
5005 
5006 
5007 
5008 



014426 

014430 

014432 
014434 
014436 



)14442 



81^ 



014442 
01 

01 

14450 
.14454 
014460 
014462 
014464 

mm 



014474 
014474 
014476 
014502 
014506 
014512 
014514 
014520 
014522 



014526 
014530 
014532 
014534 



014 s 
014542 



40 



014546 
014552 



103401 

104002 

010305 
005105 
001401 



014440 104002 



000004 
012700 

81P 

005003 
000257 
000276 

006703 
103001 



014472 104002 



000004 



005004 



014524 006712 



100403 
001002 
102401 
103401 



014536 104001 



005712 
001401 



014544 104001 



012702 
013701 



000221 



012700 00022 
013701 01452 
012702 06331 



012712 177777 
000257 
000263 



06 3312 
014566 



T220 



3$: 
4$: 



SXT MODE TEST WITH N = 1 AND C = 1 



SEQ 0094 



BCS 

ERROR 

MOV 
COM 

BEQ 

ERROR 



4$ 

2 

R3/R5 

R5 

TST221 



********************************** 



5$: 

TST221: 



;SXT FAILED TO ALTER CODES PROPERLY 
}GET RESULT 

/COMPLEMENT IT-SHOULD GO TO 
;;BR IF RESULT OF SXT = 1 

;SXT DELIVERED WRONG RESULT. 



******* ******* ************** * 



SXT MODE TEST WITH N = 1 AND C= Q 
************************************* 



************* 



2$: 
3$: 



SCOPE 
MOV 
MOV 
MOV 
CLR 
CCC 
276 

SXT 
BCC 



/CALL THE SCOPE LOOP UTILITY 
>LOAD_R0 W||H T |E§T_HUMBER 



it 



OAD Rl WI1 



J* 



R3 

TST222 



. RESULT S / B = 177 
;INITIAL DEST OP 
;CLEAR FLAGS 
/MAKE N:C = 1110 



;TEST THE SXT 

J J BR IF "C" UNAFFECTED 



TRUCTION WORD 



;SXT SET "C" BIT 

***************** i 

SXT MODE 1 AND 2 TEST WITH N = AND C = 1 
****************** *********************************** 



• . *************************************************************** 

;*TEST 222 

• • ***********! 

TST222: 

;call the scope loop utility 
;;load ro with test number 
/load rl with test instruction word 
>r2 points to dest op 
jresult s / b = 
>initial c dest 3 = 177777 
;clear codes 

JMAKE N:C = 0011 



2$: 



3$: 
4$: 

5$: 
11$: 



SCOPE 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 
263 

SXT 

BMI 
BNE 
BVS 
BCS 



TST 

BEQ 



ERROR 



MOV 
MOV 



|MB0F0,R2 
#-l,(R2) 



(R2) 

3$ 
3$ 

3? 
4$ 



(R2) 
11$ 



|MBUF0,R2 
5#12$,R1 



;TEST THE SXT - DM1 
JN:C = 0101 

;SXT FAILED TO ALTER CODES PROPERLY 

;DID RESULT = 0? 
;BR IF YES 

>SXT SHOULD HAVE ZEROED CDEST3 

;DEST ADDR = MBUFO 

;LOAD Rl WITH TEST INSTR WORD 
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5009 
5010 
5011 

1811 

5014 
5015 

IM 
mi 

5020 



5023 

w 

5028 

P 

503] 

a 



>UJ1 

p 

5034 



145 
46 



5053 
5054 
5055 

5^6? 

5063 
5064 



01456? 
H4564 



014602 
014606 

014610 

Mil 

014620 



014636 
014642 
014646 

014650 
014652 



014656 

mm 

014664 

30 
52 

014704 

014706 
014710 



012712 
000257 
000263 



014556 

01 — 
01 

014566 

014574 
014576 

014600 104001 



mm 

102401 
103401 



005737 
001401 

104001 

020227 
001401 

104001 



000004 
012700 
" 3701 



n 



012*05 



006712 
103001 



014654 104001 



ii4702 Oollfl 



oc 

006712 

100003 
001402 



177777 



063312 



063314 



000223 
014650 



063312 
177777 



000 

0" ' 



Wit 

,77777 
363312 



T222 



12$: 



7$: 
6$: 

9$: 
8$: 



SXT MODE 1 AND 2 TEST WITH N = AND C = 1 



SEQ 0095 



MOV 
CCC 
263 

SXT 

BMI 
BNE 
BVS 
BCS 

ERROR 

TST 

BEQ 

ERROR 

CMP 
BEQ 

ERROR 



#-l,(R2) 



(R2) + 



ijfMBUFO 



Tsf ! 



MBUF0+2 
23 



JINITIAL CDEST3 = 177777 
/CLEAR CODES 

;make n:c = 0011 

;TEST SXT - DM2 

>n:c = 0101 ? 



;SXT FAILED TO ALTER CODES PROPERLY 

;DID RESULT GET ZEROED 7 
;BR IF YES 

;SXT FAILED TO ZERO CDEST3 

>WAS IT REALLY MODE 2 ? 

>>BR IF YES 

JSXT FAILED TO AUTO INCREMENT 



.*************************************************************** 



>*TEST 223 SXT MODE 1 TEST WITH N = Q AND C =0 

5 . ***************************************************** 

TST223: 



•**••••••• 



2$: 
3$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
MOV 
CCC 

SXT 
BCC 



IP' 



3,R0 
* Rl 



#MBUF0,R2 
#-l/(R2) 



TST2*24 
1 



JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 
;R2 POINTS TO DEST OP 
jINITUL CDEST3 = 177777 
/CLEAR w C n BIT 

;TEST THE SXT 

j;BR IF "C" UNDISTURBED 



ERROR 1 JSXT SET THE "C" BIT 

*************************************************************** 

************* 



. • ************************************************** 

>*TEST 224 SXT MODE 1 TEST WITH N = 1 AND C = 1 

j . *****tt *************** **************************** 

TST224: 



2$: 



SCOPE 
MOV 
MOV 
MOV 

m 

sec 

SXT 

BPL 

BEQ 



|224,R0 

Imb6fO,R2 
CR2) 



(R2) 



;c all the scope loop utility 
jjload ro with test number 
;lqad.r1.with test^jjtruction word 

. 't8 5e£? 7 op 

CDEST3 = 
JMAKE N:C = 1111 

;TEST THE SXT 
>N:C = 1001? 



; RESULT S / 
;R2 POINTS 1 
^INITIAL CDE 
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5065 
5066 
5067 
5068 
5069 
5070 
5071 

5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 

im 

5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 



014712 
014714 



014720 
014722 



102401 
103401 



014716 104001 



021204 
001401 



014724 104001 



000004 
012700 
013701 
012704 
012702 
005012 
000257 
000276 

006712 
103001 

014762 104001 



000225 
014756 
177777 
063312 



014764 
014764 
01 47 66 
014772 
01477(5 
015002 
015006 
015010 


000004 

81^8? 

012704 
012703 
000257 
000273 


000226 
015012 
177400 
000377 


015012 


000303 




015014 
015016 
015020 
015022 


100403 
001002 
102401 
103001 




015024 


104002 




015026 
015030 


020403 
001401 




015032 


104002 





CMP 

BEQ 



ERROR 



3$: 
4$: 

5$: 

;*TEST 225 
. . ****** **«**< 

T5T225: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

276 

SXT 
BCC 

ERROR 



SXT MODE 1 TEST WITH N 

11 

1 



15:26 
= 1 



PAGE 97 
AND C = 1 



BVS 
BCS 



ERROR 



T^? 22 § 4 



;SXT FAILED TO ALTER CODES PROPERLY 

;RESULT = 177777? 
J>BR IF YES 



;SXT DELIVERED WRONG RESULT 

••*••*•**•****•***** 

SXT MODE 1 TEST WITH N = 1 AND C = 
************************************** 



2$: 
3$: 



|225,R0 

|MBUF0,R2 
(R2) 



TST^26 



1 



************* 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = 177777 

;R2 POINTS TO DEST OP 

>INITIAL CDEST3 = 

;CLEAR FLAGS 

;MAKE N:C = 1110 

;TEST THE SXT 

;;BR IF "C" UNAFFECTED 

;SXT SET THE "C" BIT 



• • *************************************************************** 

;*TEST 226 SWAB MODE TEST WITH POS. RESULT 

• • ****************************************** ********************* 

TST226: 





SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 
273 


#226,R0 

#177400, R4 
#377, R3 


/CALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = 177400 
;INITIAL DEST OP = 377 
;CLEAR FLAGS 
;MAKE N:C = 1011 


2$: 


SWAB 


R3 


;TEST THE SWAB 




BMI 
9NE 
BVS 
BCC 


3$ 
3? 
3$ 
4$ 


;n:c = oioo 


3$: 


ERROR 


2 


;SWAB FAILED TO ALTER CODES PROPERLY 


4$: 


CMP 
BEO 


R4,R3 
TST227 


JCORRECT RESULT? 
>>8R IF YES 


5$: 


ERROR 


2 


;SWAB DELIVERED WRONG RESULT 


• • *********** 

;*TEST 227 


*•*****••*• ***************************************** 

SWAB MODE TEST WITH NEG. RESULT 
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000227 



5157 
315" 



51 „ 
515? 
5160 
5161 
5162 
5163 
5164 
5165 

im 

5168 
5169 
5170 



015140 , 

015142 C01002 

015144 102401 

015146 103001 

015150 104001 



015152 
015154 



020412 
001401 



015156 104001 



177400 





MACY11 30A(10 
T227 SWAB 

• • *********** 

TST227: 

SCOPE 

MOV 

MOV 

MOV 

MOV 



52) 15-NOV-78 15:26 PAGE 98 
MODE TEST WITH NEG. RESULT 



**************************************************** 



#227, RO 
#177400, R3 



/CALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
JLQAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = 377 
;INITIAL DEST OP = 177400 



2$; 



3$: 
4$: 

5$: 



2( 

SWAB 

BPL 
BEQ 
BVS 
BCC 



CMP 
BEQ 



ERROR 



CLEAR FLAGS 
MAKE N:C = 0111 



R4/R3 
TST230 



JTEST THE SWAB 



JDID SWAB MAKE N:C = 1000 



>SWAB FAILED TO ALTER CODES PROPERLY 

;DID SWAB DELIVER CORRECT RESULT? 
>>BR IF OK 



• .*********** 

>*TEST 230 
j.*********** 

T5T230: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

m 



;SWAB DELIVERED WRONG RESULT 
**************************************************** 
SWAB MODE 1 

*************< 



2$: 



3$: 
4$: 



5$: 



SWAB 

BMI 
BNE 
BVS 
BCC 



CMP 
BEQ 

ERROR 

MOV 
MOV 
MOV 
CCC 
273 



»230,R0 

Jmbufo,r2 

»377,(ft2) 



<R2) 

3? 
3? 
3$ 
4$ 



34, (R2) 



R4 



>CALL THE SCOPE LOOP UTILITY 
> J LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 177400 
>R2 POINTS TO DEST OP 
>SET UP DEST OP = 377 



/CLEAR FLAGS 
;MAKE N:C = 



1011 



#20$, Rl 
MBUF^R2 



377, 



;TEST THE SWAB - 0M1 
;N:C = 0100 

;SWAB FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT? 
>ER IF OK 

;SWAB DELIVERED WRONG RESULT 

;LOAD Rl WITH TEST INSTR. WORD 
;R2 POINTS TO DEST OP 
JCDEST3 = 000377 
;CLEAR FLAGS 

;make n:C = ion 
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T230 SWAB MODE 1 AND 2 TEST WITH PQS. RESULT 



5177 
5178 
5179 
5180 

M 

51 §4 



015200 000322 



mm 
mm 



100403 
001002 
102401 
103001 



015212 104001 



063312 



063314 




000232 
015332 



20$: 



7$; 

6$: 

9$: 
8$; 



fs 



2$: 



3$: 
4$: 

5$: 

n 

TS 



SWAB 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

ERROR 

CMP 

BEQ 

ERROR 
*********** 

TEST 231 
*********** 

T231: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

SWAB 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 

BEQ 



(R2)* 



;TEST THE SHAB 
;N:c = 0100 



DM2 



R4,@#MBOF0 
8S 



R2,#MB0F0«-2 
TST231 

1 

******************* 

SWAB MODE 1 TEST 
******************* 



jfMBuf 0<R2 
#177400, (R2) 



(R2) 

3$ 
3$ 
3$ 
45 



R4,(R2) 
TST232 



JSWAB FAILED TO SET CODES PROPERLY 

;CORRECT RESULT ? 
;BR IF YES 

>SWAB DELIVERED THE WRONG RESULT 

;DID AUTO INCREMENT OCCUR ? 
>?BR IF YES 

JSWAB FAILED TO AUTO INC REG. 

k**«* ****** *********************** 

WITH NEG. RESULT 
********************************* 

;call the scope loop utility 
;;load ro with test number 
;lqad rl with test instruction word 
jresult s / b = 377 
>r2 points to dest op 
>set up dest. op = 177400 
;clear flags 
;make n:c = 0111 

;test the swab 



;N:C 



1000? 



*********** 

TEST 232 
*********** 



******************* 



T232! 



SCOPE 

MOV 

MOV 

CLR 

CLR 



#232, RO 
||2$,R1 

R3 



;SWAB FAILED TO ALTER CODES PROPERLY 

>CORRECT RESULT? 
>;BR If YES 

;SWAB DELIVERED WRONG RESULT 
********************************* 

: CDEST3 = 
********************************** 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

jLOAD Rl WITH TEST INSTRUCTION WORD 

/RESULT S / B = 

/ INITIAL CDEST3 = 
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NEG MODE TEST : CDEST3 s 



T232 




000234 



2$: 



3$: 
4$: 

5$: 



CCC 
273 

NEG 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

ERROR 



R3,R4 
TST233 



;CLEAR FLAGS 
;MAKE N:C = 1011 



;TEST THE NEG 

;N:C = 0100 ONLY "Z" SET? 



;NEG FAILED TO ALTER CODES PROPERLY 

;WAS RESULT = 

;;BR IF YES 

sNEG DELIVERED WRONG RESULT 



. . ************************************************************** * 



$*TEST 233 NEG MODE 

}•**********************< 

TST233: 

SCOPE 
MOV 



2$: 



3$: 
4$: 

5$: 



MOV 
MOV 
MOV 
CCC 
276 

NEG 

BMI 
BEQ 
BVS 
BCS 



CMP 

BEQ 



5233, RO 
l-2,R3 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
KOAD Rl WITH TEST INSTRUCTION H 
;RESULT S 7 B = 2 
JlNITIAL CDEST3 = 177776 
JCLEAR FLAGS 
;make N:C = 1110 

/TEST THE NEG 



ORD 



R3,R4 
TST234 



ERROR 



• .********************** 

J*TEST 234 NEG MODE 

J . ********************** 

TST234 



5288 015450 005403 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 
SEZ 

NEG 



»234,R0 



R3 



;N:C = 0001? 



; NEG FAILED TO ALTER CODES PROPERLY 

;RESULT = 2? 
>JBR IF YES 

;NEG DELIVERED WRONG RESULT 
***************************************** 

*2***5*****2***2***i2S222**S ****** ******* 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S 7 B = 100000 
)INITIAL CD EST 3 = 100000 
; CLEAR FLAGS 
;MAKE N:C = 01000 

JTEST THE NEG 
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mi 

5291 

ip 

5294 

mi 

5297 
5298 

mi 

5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 
5314 

fiii 

5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 

mi 

5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 



015452 
015454 
015456 
015460 

015462 

015464 
015466 



015472 
015472 
015474 
015500 
015504 
015510 
015512 
015514 
015516 



015522 
015524 
015526 
015530 



015534 
015536 



015542 
015542 
015544 
015550 
015554 
015560 
015564 
015570 
015572 

015574 

015576 



100003 
001402 

mm 

104002 

020304 
001401 



015470 104002 



000004 

81"" 

Oil . 
*2 5 <>04 
005012 
000257 
000273 



JVVVVi 

mm 

112702 



015520 005412 



100403 
001002 
102401 
103001 



015532 104001 



021204 
001401 



015540 104001 



000004 
012700 
013701 
012702 
012704 
012712 
000257 
000266 

005412 

100003 



000235 
015520 
063312 



000236 
015574 
°62312 
177776 
000002 



3$: 
4$: 

5$: 



BPL 
BEQ 
BVC 
BCS 

ERROR 

CMP 
BEQ 



4$ 

2 

R3,R4 
TST235 



1011? 



;neg FAILED TO ALTER CODES PROPERLY 

^RESULT STILL 100000? 
;;BR IF YES 



. • *********** 

;*TEST 235 
••****•••**•* 

TST235 



2 >NEG DELIVERED WRONG RESULT 

********************************************* ******< 

NEG MODE 1 TEST : CDEST3 = 
**************************************************** 



2$: 



3$: 
4$: 



5$: 

••*****•***«• 

>*TEST 236 
••***«****•«* 

TST236: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

266 



SCOPE 
MOV 
MOV 
MOV 
CLR 
CLR 
CCC 
273 


#235, RO 

fMBOFO/l 
R4 
(R2) 


NEG 


(R2) 


BMI 
BNE 
BVS 
BCC 


3$ 
3? 
3$ 
4$ 


ERROR 


1 


CMP 

BEQ 




ERROR 


1 



R2 



>CALL THE SCOPE LOOP UTILITY 

;;LOAD RO KITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;R2 POINTS TO DEST OP 

;RESULT S / B = 

;INITIAL CDEST3 = 

;CLEAR FLAGS 

>MAKE N:C = 1011 

JTEST THE NEG 
;N:C = 0100? 



J NEG FAILED TO ALTER CODES PROPERLY 



2$: 



NEG 
BPL 



;RESULT = 0? 
;>BR IF YES 

;NEG DELIVERED WRONG RESULT 
**************************************************** 



>C»LL THE SCOPE LOOP UTILITY 

JiLOAD SO WITH TEST NUMBER 

;LQAD Rl WITH TEST INSTRUCTION WORD 

;R2 POINTS TO DEST OP 

/RESULT S / B = 177776 

>I»ITIAL CDEST3 = 2 

/CLEAR FLAGS 

JMAKE N:C = 0110 

;TEST THE NEG 




(2) 
3$ 
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5345 
5346 
5347 
5348 
5349 
5350 
5351 

fill 

5354 
5355 
535f 



J57 

111 
360 
|61 
362 
J 63 
J64 

5367 

5369 
5370 
5371 
5322 

nil 

5375 
5376 

tm 

5379 
5380 
5381 
5382 
5383 

53<H 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 



015600 
015602 
015604 



015610 
015612 



015652 
015654 
015656 
015660 



015664 
015666 



015672 
015672 
015674 
015700 
015704 
015710 
015714 
015716 
015720 



015724 
015726 
015730 



001402 
102401 
103401 



015606 104001 



021204 
001401 



015614 104001 




015630 
015634 

nun 

015646 



015650 005412 



mm 

102401 
103401 



015662 104001 



021204 
001401 



015670 104001 



000004 

012702 
012704 

mm 

000264 



015722 005412 



100003 
001402 
102001 



000240 
100000 
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3$: 
4$: 



BEQ 
BVS 
BCS 

ERROR 

CMP 
BEQ 



;n:c = 1001? 



;NEG FAILED TO ALTER CODES PROPERLY 



TSt1§7 



R4 



;C0RRECT RESULT? 
;;BR IF YES 



5$: 



;*TEST 237 
j. *********** 

TST237: 

SCOPE 



>NEG DELIVERED WRONG RESULT 

******* *************** *********** 

NEG MODE 1 TEST ? CPEST3 LT 
**************************************************** 



**************************** 



2$! 



3$: 
4$: 



5$: 



MOV 
MOV 
MOV 
MOV 
MIJV 
CCC 
276 

NEG 

BMI 
BEQ 
BVS 
BCS 

ERROR 

CMP 
BEQ 

ERROR 



}237,R0 

iSiuft)^ 

|2,R4 
1-2, (R2) 



(R2) 
3$ 

n 

4$ 
1 

(R2),R4 
TST240 



/CALL THE SCOPE LOOP UTILITY 

>;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WOPD 

;R2 POINTS TO DEST OP 

;RESULT S / B = 2 

?INITIAL CDEST3 = 177776 

JCLEAR FLAGS 

/MAKE N:C = 1110 

JTEST THE NEG 



;n:c = 0001? 



/NEG FAILED TO ALTER CODES PROPERLY 



JCORRECT RESULT = 2? 
>JBR IF YES 



1 



t *********** 
. TEST 240 
5 . *********** 

TST240: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

SEZ 



>NEG DELIVERED WRONG RESULT 
******************************* ••*•***•**•* ********* 

NEG MODE 1 TEST: CDEST3 s 100000 (8) 

************** ****************** ******! 



2$: 



NEG 

BPL 
BEQ 
BVC 



#240, RO 

§|2$«R1 

PB0F0,R2 

#100000,R4 

R4,(R2) 



<R2) 



* ** * ******** 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;R2 POINTS TO DEST OP 

; RESULT S / B = 100000 

;INITIAL CDEST3 = 100000 

;CLEAR FLAGS 

JMAKE N:Z = 0100 

;TEST THE NEG 
;n:C = 1011? 
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5401 
5402 
5403 
5404 
5405 
5406 
5407 
5408 

-1 

5412 
5413 

im 

5416 

Hi! 

5420 

m 

5423 
5424 
5425 
5426 
5427 

i*38 

5430 
5431 

S8§ 

5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 

im 
5444 

ini 
5447 

5448 

tttt 
5451 
5452 
5453 
5454 
5455 
5456 



015732 
015734 

mm 

015742 



44 
4 
6 

3H1 

.5766 
15770 



015772 
015774 



016006 
016010 



6014 
. _6014 
016016 



81 

01 

olf 8ii 

016030 

mm 



016042 
016044 
016046 
016050 



103401 
104001 

mm 

104001 



mm 

°i320i 

012704 
012703 
000257 
000276 

006003 

100403 
001402 
102401 
103001 

016004 104002 



020403 
001401 



016012 104002 



000004 
012700 
013701 
005004 
012703 
000257 
000270 



016040 006003 



100403 
001002 
102001 
103401 



016052 104002 



000241 
015772 
052525 
125252 



000242 
016040 



000001 



T240 

3$: 
4S: 

5$: 



NEG MODE 1 TEST: CDEST3 = 100000 (8) 



BCS 
ERROR 



CMP 
BEQ 



4$ 
1 



TST 2 2*? 



R4 



>NEG FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT * 100000? 
;;BR IF YES 

;NEG DELIVERED WRONG RESULT 



j£*****»*»**» ***************************************** *********** 

TST241: 



»**•* ******** ******* 





SCOPE 




MOV 




MOV 




MOV 




MOV 




CCC 




276 


2$: 


ROR 




BMI 




BEQ 




BVS 




BCC 


3S: 


ERROR 


4S: 


CMP 


BEQ 


5$: 


ERROR 



|241/R0 



R3 



R4.R3 
TST242 



;C ALL THE SCOPE LOOP UTILITY 
; 5 LOAD RO WITH TEST NUMBER 
J LOAD Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 52525 
;CDEST3 = 125252 
jCLEAR FLAGS 

>n:c = 1111 
jtest the ror 

;n:c = 0000 ? 



;ROR FAILED TO ALTER CODES PROPERLY 

;C0RRECT RESULT ? 
j;BR IF YES 

>ROR DELIVERED THE WRONG RESULT 

r ********* 



• . ************** ***** *****•**•*••• ***************** 

!«test ■>»■> ROR TEST - DM0 -.N?C .= 1000 



TS 



•TEST 242 
. ******** 



********************** ************** ************ ******* 



T242! 



2S: 



3$: 



SCOPE 

MOV 

MOV 

CLR 

MOV 

CCC 

SEN 

ROR 

BMI 
BNE 
BVC 
BCS 

ERROi? 



242/RO 
|2$,R1 

#1/R3 



/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

>LQAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = 000000 

HDEST3 = 1 

;CLEAR FLAGS 

>N:C = 1000 

;test the ror 
;n:c = 0111 ? 



>ROR FAILED TO ALTER CODES PROPERLY 
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020403 
001401 



MACY11 30AQ0 
T242 ROR T 




55 
551 



016170 104002 

8*ii?i mm 

016176 104002 



4$: 



5$: 



CMP 

BEQ 



52) 15-NOV-78 
EST - DM0 - NJC 

R4,R3 
TST243 



15:26 PAGE 
= 1000 



104 



ERROR 



;CORRECT RESULT ? 
;;BR IF YES 

;ROR DELIVERED THE WRONG RESULT 



; • *********** 

;*TEST 243 
• . •******•••* 

TST243: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

CCC 

267 



********************< 



»•*****« ************ **•••••••** 



£243, RO 
?»2$iRl 



2$: 



3$: 
4$: 

5$: 



ROR 

BPL 
BEQ 
BVS 
BCS 

ERROR 

CMP 
BEQ 

ERROR 
•**•*•*•*** 

. TEST 244 
. . •**••****•* 

TST244: „„„„ 
SCOPE 
MOV 
MOV 
CLR 
MOV 
CCC 
SEN 



R3 



R4< R3 
TST244 



*********** 

ASR TEST 
**•••••**•* 



2$: 



3$: 
4$: 

5$: 



ROR 

BMI 
BNE 
BVC 
BCS 



CMP 
BEQ 



»244/R0 

S#2s;ri 



#1,R3 



R3 

3S 
3? 
34 
4$ 



R4,R3 
TST24? 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;RESULT S I B= 125252 

?CDEST3 = 052525 

JCLEAR FLAGS 

;N:C = 0111 

;TEST THE ROR 

;N:C = 1001 ? 



>ROR FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
>;BR IF YES 

>ROR DELIVERED THE WRONG RESULT 
******* ******** ******* ************ ******* 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = 000000 
;CDEST3 = 1 



;CLEAR FLAGS 
" " 10C" 



>n:c 



300 



ERROR 



?TEST THE ROR 
;N:C = 0111 ? 



;ROR FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
>;BR IF YES 

;ROR DELIVERED THE WRONG RESULT 



5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 



000004 

012700 000245 
013701 016226 
152525 
125252 
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5513 
5514 
5515 
5516 
5517 
55 
55,, 
5530 
5§2 
5 

5524 
5525 
5526 
}527 
3528 
5529 
5530 
5531 
5532 
5533 
5534 
5535 
5536 
5537 
5538 
5539 
5540 
5541 
5542 
5543 
5544 
5545 
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SEQ 0104 




016240 104002 



016242 
016244 



020403 
001401 



016246 104002 



000004 
012700 

013701 016276 
012704 025252 



000246 
0162"" 



016276 

016300 
016302 
016304 
016306 



012703 052525 
000257 
000274 

006003 

100403 
001402 
102001 
103401 



016310 104002 



016312 
016314 



020403 
001401 



016316 104002 



. ****** *********************** *********** **************** ******* 



;*TEST 245 
••****•* «****« 

T5T245: 





SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 
265 


#245, RO 

?!§52 R , 
#125252, 


2S: 


ROR 


R3 




BPL 
BEQ 
BVC 
BCC 


3$ 
35 
3$ 
45 


3$: 


ERROR 


2 


4$: 


CMP 
BEQ 


R4,R3 
TST246 


5s: 


ERROR 


2 



• ■ *********** 

>*TEST 246 
• • *********** 

TST246: 



35 : 
4S: 

55 : 



••••*•*••**** 

>*TEST 247 
. . ************ 



i***********!**! ********** ************ 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;lOAD Rl WITH TEST INSTRUCTION WORD 

-R4 ;RESULT S / B = 152525 

,R3 ;CDEST3 = 125252 

;CLEAR FLAGS 
;n:c = 0101 

;TEST THE ROR 

;n:c = 1010 ? 



;ROR FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
;;BR IF YES 

;R0R DELIVERED THE WRONG RESULT 
****** ***************** ******** ************ ******** * 

ASR TEST - DM0 - N:C = 1100 
t** ******** ******************************** ********* 

;call the scope loop utility 
;;load ro with test number 
;load rl with test instruction word 
?result s 7 b = 25252 

KDEST3 = 52525 
/CLEAR FLAGS 
;N:C = 1100 

;TEST THE ROR 

;N:C = 0011 ? 



>ROR FAILED TO ALTER CODES PROPERLY 

;C0RRECT RESULT ? 
;;BR IF YES 

;ROR DELIVERED THE WRONG RESULT 
******** ***************** **************** *********** 

t ********************* 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 
274 


#246, RO 

11^2^1 
#52525,1 


ROR 


R3 


BMI 
BEQ 
BVC 
BCS 


3$ 
35 
35 
4$ 


ERROR 


2 


CMP 

BEQ 


R4,R3 
TST247 


ERROR 


2 
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016320 
016320 
016322 
016326 
016332 
016336 
016342 
016346 
016350 



016354 
016356 
016360 
016362 



016366 
016370 
016372 
016374 



016416 



016422 
>424 



016442 
016444 



016446 
016450 



016452 



000004 
012700 
013701 
012702 
012704 
012712 
000257 
000276 



016352 006012 



100403 
001402 
102401 
103001 



016364 104001 



020412 
001402 
011203 
104001 




012702 
005004 
012712 
000257 
000270 



016426 006012 



016440 104001 



020412 
001402 



011203 
104001 



000247 
016352 
063312 
052525 
125252 



mm 

063312 
000001 



MACY11 30AQ052) 
T247 ROP TEST 

TST247: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
276 
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DM1 



n:c = 1110 



SEQ 0105 



*247,R0 

I52525.R4 
1125252, (R2) 



25! 



5$: 

« • ******** 

;*TEST 250 



ROR 

BMI 
BEQ 
BVS 
BCC 

ERROR 

CMP 
BEQ 
MOV 
ERROR 



(R2) 

3$ 
3? 
3$ 
4$ 



R4,(R2) 

TST250 

|R2),R3 



t> ********************** ***** 

. ROR TEST 

, . *********** *************** 

T5T250 



25! 



3$: 
45: 



SCOPE 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 
SEN 

ROR 

BMI 
BNE 
BVC 
BCS 



CMP 
BEQ 



MOV 
ERROR 



#250, RO 

#MBDF0,R2 
fi4 

#1,(R2) 



(S2) 



/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFQ 

;RESULT S / B = 52525 

}CDEST3 = 125252 

JCLEAR FLAGS 

;N:C = 1110 

JTEST THE ROR 

;N:C = 0000 ? 



;ROR FAILED TO ALTER CODES PROPERLY 

;CCRRECT RESULT ? 
JJBR IF YES 
;GET THE WAS DATA 
;ROR DELIVERED WRONG RESULT 

******** *************** ********** * 

DM1 - n:c = 1000 

************************************** 

J CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
JLCAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFQ 
;RESULT S / B = 000000 
JCDEST3 = 1 
JCLEAR FLAGS 
;N:c = 1000 



R4,(R2) 
TST251 

p2),R3 



JTEST THE ROR 
;N:C = 0111 ? 



;ROR FAILED TO ALTER CODES PROPERLY 



>CORRECT RESULT ? 

jjbr if yes 



;GET THE WAS DATA 

JROR DELIVERED WRONG RESULT 



;*TEST 251 ROR TEST - DM1 - N:C = 0111 

************* *********************************** *********** 

TST251: 
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S63J 



5635 
5636 

m 
M 

5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 

im 

5656 

5660 
56t>l 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 




016562 
016564 
016566 
016670 



016574 
016576 



016600 
016602 



016604 



000267 



016504 006012 



016506 
016510 

mm 

016516 

016520 
016552 

016524 
016526 



020412 

,001402 

9i \M 



10 




0^02! 
000270 



016S60 006012 



100403 
001002 
102001 
103401 



016572 104001 



020412 
001402 



011203 
104001 



000001 



T251 



ROR TEST - D*l - N:C = 0111 



2$: 



35 : 
4S: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

267 

ROR 

BPL 
BEQ 
BVS 
BCS 

ERROR 

CMP 
BEQ 




/call the scope loop utility 

;;load ro with test number 

_. t f H 



TES 



T INSTRUCTION WORD 
5252 



5$ 

J* 



MOV 



RROR 



(R2) 



R4/CR2) 
TST252 

|R2),R3 



>BES? A&DR = MBUFO 
JRESULT S / 1 = 12 
kOESli = 52525 
JCLBAR FLAGS 
>M:C » 0111 

JTEST THE ROR 

>H:C = 1001 7 



;ROR FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT ? 
;>BR IF YES 

;GET THE WAS DATA 

;R0R DELIVERED WPONG RESULT 



•♦A*************************************************** 

********************* 



2$: 



3$: 
4$: 



5$: 



SCOPE 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 

SEN 

ROR 

BMI 
BNE 
BVC 
BCS 



CMP 
BEQ 



MOV 
ERROR 



#252, R^ 

PbOF , 0,R2 

#1,(R2) 



/CALL THE SCOPE LOOP UTILITY 
>;LQAD RO WITH TEST NUMBER 
>L0AD Rl WITH TEST INSTRUCTION 
JDEST AODR = MBUFO 

;result s / b = oooooo 

JCDEST3 = 1 
JCLEAR FLAGS 
;«:C = 1000 

JTEST THE ROR 

;N:C = 0111 ? 



;ROR FAILED TO ALTER COOES PROPERLY 



TST253 
|R2),R3 



>CORRECT RESULT 
;;BR IF YES 



>GET THE WAS DATA 

>ROR DELIVERED WRONG RESULT 



U ********************************** ***************************** 
• TEST 253 ASR TEST - DM1 - N:C = 1100 

j . i*****^********** ***•••*** *3***» ********** ********** *•*****•••• 

TST253: 
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000253 
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T253 ASR TEST - DM1 - N.'C * 1100 




104001 

020412 
001402 

011203 
104C-- 



2$: 



3$: 
4$: 



5$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

274 

ROR 

BMI 
BEQ 
BVC 
BCS 



CMP 
BEQ 



MOV 
ERROR 




(R2) 
35 

4? 
1 

R4#(R2) 
TST254 

JR2)/R3 



/call the scope loop utility 
;;load ro with test number 
j load rl with test instruction word 
;dest addr = mbufo 

/RESULT S / B r 25252 
JCDEST3 = 52525 
> CLEAR FLAGS 
>N:C = 1100 

;TEST THE ROR 

>N:C = 0011 ? 



;ROR FAILED TO ALTER CODES PROPERLY 



;CORRECT RESULT ? 
;>BR IF YES 



>GET THE WAS DATA 

>R0R DELIVERED WRONG RESULT 



..A************************************************************** 

<,X**X*^*^********S*X**X***S*if«****^***S 1 * ***************** **** 

T254: /CALL THE SCOPE LOOP UTILITY 

-* 3ER 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
265 

ROR 

BPL 
BEQ 
BVC 
BCC 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



|254,R0 

ill' 



(R2) 

3$ 
3l 
3 5 
4$ 



R4,(R2) 
TST255 

|R?),R3 



U l o2d 



AD RC 



WITH TEST NUMBE 
— ihsT" 

2525 



. Rl WITH T?ST INSTRUCTION WORD 

JDEST ADDR " 



MBUF 

/RESULT S / B a 1 
JCDESTI - 125252 
/CLEAR FLAGS 
;N:C = 0101 

;TEST THE ROR 

;n:c = 1010 ? 



;ror failed to alter codes properly 
jcorrect result ? 

j;br IF YES 

>GET THE WAS DATA 

>ROR DELIVERED WRONG RESULT 



016740 



..A************************************************************** 

;*TEST 255 RORB TEST - DH2 - EVEN ADDRESS 

• . *************************************************************** 

TST255: 
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T255 



5737 
5738 
5739 
5740 
5241 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 



5760 
5261 
5262 
5763 
5764 
5765 
5766 
5767 
5768 

iP 

5771 
5772 
5773 
5774 
5775 
5776 
5227 



5780 
5281 
5782 
5783 
5784 

1781 

5787 
5788 
5789 
5790 
5791 
5792 



016740 
016742 
016746 
016752 
016756 
016762 
016764 
016770 

016772 

016774 



017000 
017004 

017006 

mm 

017014 
017016 



017020 
017020 
017022 
017026 
017032 
017036 
017042 
017044 
017050 
01 



017056 
017060 



017062 
017064 



017066 
017070 



017072 



000004 
012700 
013701 
012702 
012704 
010203 
012712 
000257 

106023 

103401 



016776 104001 



022703 
001401 

104005 

011203 
104001 



000004 
012700 

0J22°i 

012702 
012704 
010203 
012712 

000257 

7052 000261 

017054 106013 



103001 
104001 



020412 
001402 



011203 
104001 



000255 
0l|77jj 

0*00177 

000377 



063313 



000256 



017054 
063312 
000377 

000376 



RORB TEST - DM2 
255,R0 



EVEN ADDRESS 



2$: 

35: 
4$: 

5$: 
65: 



75J 

V. 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

RORB 

BCS 

ERROR 

CMP 
BEQ 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



PBO*Fo}r2 
#377, (R2) 



(R3) + 

4$ 

1 

gMBUF0+l,R3 



?s 4 f$ 5 T 

£R2),R3 



;call the scope loop utility 

;;load ro kith test number 

;lqad rl with test instruction word 

;dest aodr = mbufo 

>result s / b = 177 

jr3 contains dest addr 

JCDEST3 = 377 

; SCOPE SYNC "C" = 

;TEST THE RORB 

;BR IF ROR SET "C" 

;ROR FAILED TO SET "C" 

JDID DEST REG GET INCREMENTED ? 
;BR IF YES 

;RORB FAILED TO UPDATE DEST REG 

;CORRECT RESULT ? 
;;BR IF YES 

;GET THE WAS DATA 

>RORB DELIVERED WRONG RESULT 



..*************************************************************** 

)*TEST 256 RORB TEST - DM1 - EVEN ADDRESS 

i J *************************************************************** 

TST256: 

>CALL THE SCOPE LOOP UTILITY 
#256, RO ;;LOAD RO WITH TEST NUMBER 



25! 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
SEC 

RORB 

BCC 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



R2 



5*2$,R1 

\WA\ 

R2,R3 
#376, (R2) 



(R3) 

4$ 

1 

R4,(R2) 
TST257 

(R2),R3 



//LiUmu nu ai in icoi nunocK 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
;RESULT S / B = 377 
;R3 CONTAINS DEST ADDR 
;CDEST3 = 376 
;CLEAR FLAGS 
JSCOPE SYNC - SET "C" 

;TEST THE RORB 

?BR IF "C" CLR - IT SHOULD BE 

;RORB FAILED TO CLR "C" 

;CORRECT RESULT ? 
;;BR IF YES 

;GET THE WAS DATA 
;RORB DELIVERED WRONG RESULT 



5$: 

************************ ****•*****••*••**••*•**•*•*******•• ****** 

; 4 TEST 257 RORB TEST - DM2 - ODD ADDRESS 

..************** ****************************************** ******* 

T5T257: 
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MACY11 
T257 
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RORB TEST - DM2 - ODD ADDRESS 



5793 
5794 
5795 
5796 
5797 
5798 
5799 
5800 

5 5 r: 

1181 

5805 
5806 
5807 
5808 

m 

5812 



m 



5815 
5816 
5817 
5818 
5819 
5820 

mi 

5823 
5824 

ii 

5828 
5829 
5830 
5831 
5832 
5833 
5834 
5835 
5836 
5.837 

5 
5 



39 
40 

5844 

mi 

5847 
5848 



)8< 



017072 
017074 
017100 

017104 
017112 
017114 
017116 

mm 
mm 

017140 



017144 
017146 

mm 

017156 

017160 
017162 

017164 
017166 



017170 

\m 

017202 
017206 

mm 

017220 
017224 

017226 

017230 

017232 

017234 
017236 

017240 
017242 



000004 

012700 000257 
013701 017142 

032737 000040 063234 

001401 

000000 

012702 063313 

012704 077777 

012705 063312 
010203 

012715 177777 
000257 



017142 106023 



103401 
104001 

mm 

104005 

020415 
001402 

mm 



000004 
012700 
013701 
012702 
012704 

oloiol 

012715 
000261 

106023 

103001 

104001 

020415 
001402 

011503 
104001 



063314 



000260 
017226 
063313 
177777 
063312 



SCOPE 
MOV 
MOV 



#257, RO 



@#2$,Rl iuunu m 

•SBTTL USER CONTROLLED BREAKPOINT — BIT5 



/CALL THE SCOPE LOOP UTILITY 
?;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 



2$: 

3$: 
4$: 

5$: 
6$: 

7$: 

..**** 

\ IISI 

fiT260 



BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

RORB 

BCS 

ERROR 

CMP 
BEQ 



CMP 
BEQ 



MOV 
ERROR 



#BIT5,8#BPTLOC 
.+4 

#MBUF0*1,R2 
#77777, R4 
#MBUF0,R5 
R2,R3 
#-l,(R5) 

<R3)* 

4$ 

1 

|MBUF0+2,R3 



R4,(R5) 
TST260 



[R5),R3 



BREAKPOINT HALT SET ?? 
;BR IF NOT 

JBREAK - DEPRESS CONTINUE TO RESTART 

;DEST ADDR = MBUF0+1 

;RESULT S / B = 77777 

;POINT R5 TO CHECK RESULT 

;R3 CONTAINS DEST ADDR 

>CDEST3 = 177777 

; SCOPE SYNC - "C" =0 

;TEST THE RORB 

;BR IF "C" IS SET - IT SHOULD BE 

,RORB FAILED TO SET "C" 

;DID DEST REG GET INCREMENTED ? 
>BR IF YES 

jrorb failed to update dest reg 

;correct result ? 
>jbr if yes 

;get the was data 

; rorb delivered wrong result 



I********************************************************** 

260 RORB TEST - DM1 - ODD ADDRESS 

t* ************************************** **< 



2$: 



3$: 
4$: 



5$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SEC 

RORB 

BCC 

ERROR 

CMP 

BEQ 

MOV 

ERROR 



!260,R0 
#2$*R1 
MB0F0+1,R2 
-1,R4 
MBUFO, R5 
2 R3 
#177377, (R5) 



(R3) + 

4$ 

1 

R4 £ (R5) 
TST261 

£R5),R3 



»»** ************** 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

>DEST ADDR = MBUF0+1 

/RESULT S / B = 177777 

>POINT R5 TO CHECK RESULT 

;R3 CONTAINS DEST ADDR 

;CDEST3 = 177377 

; SCOPE SYNC - SET "C" 

/TEST THE RORB 

;BR IF "C" CLEAR - IT SHOULD BE 

;RORB FAILED TO CLEAR "C" 

JCORRECT RESULT ? 
;>BR IF YES 

;GET THE WAS DATA 

;RORB DELIVERED WRONG RESULT 
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r^fO Er TEST - DM1 - ODD ADDRESS 



.I-'!!/) 

>ii\61 
586? 
5863 
5864 

mi 

5867 
5868 

nn 

m 



m 

m 



5895 
5896 

1812 

5899 
5900 
5901 
5902 
5903 
5904 



017! -'6 

0'v:'.ii2 

tm 

017266 
017272 
017274 
017300 

017302 

017304 

017306 

017310 
017314 

017316 

017320 
017322 

017324 
017326 



^127 00 

012705 
010203 
012715 
000257 

106223 

103401 

104001 

022703 
001401 



020415 
001402 



011503 
104001 



017330 

mm 
mm 

017346 
12352 
17356 

dim 

017366 

017370 

017372 

017374 
017376 

017400 011503 



000004 
012700 

mm 

012704 

mm 
mk 

106213 

103001 

104001 

020415 
001402 



L2 

000777 



063314 



000262 

m 

063312 
100377 



t;'.T261 



,*»*** **« 



ft************************************ 





SCOPE 




NOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




CCC 


2S: 


ASRB 




BCS 


3$: 


ERROR 


4$: 


CMP 




BEQ 


5$: 


ERROR 


6$: 


CMP 




BEQ 




MOV 


7$: 


ERROR 



1261, RO 
Hijjf 0*1,R2 
377,R4 
MBUF0/R5 

#7*77*? (R5) 



(R3) + 

4$ 

1 

|MBUF0+2,R3 

5 

R4,(R5) 
TST262 

|R5),R3 



JCALL THE SCOPE LOOP UTILITY 
JjLOAD RO WITH TEST NUMBER 

j Load ri with test instruction word 

J DEST ADDR = MBUFQ+1 
} RESULT S / B = 377 
JPOIMT R5 TO CHECK RESULT 
JR3 CONTAINS DEST ADDR 
?CDEST3 = 777 
JSCOPE SVNC "C" = 

;TEST THE ASRB 

JBR IF CARRY SET - IT SHOULD BE 

;ASRB FAILED TO SET THE CARRY 

JDID DEST REG GET INCREMENTED ? 
JBR IF YES 

; ASRB FAILED TO UPDATE DEST REG 

;C0RRECT RESULT ? 
JJBR IF YES 

JGET THE WAS DATA 

; ASRB DELIVERED WRONG RESULT 



;;**»** 

i.Ii*** 

4§T262: 



•a******************************************************** 



2$ J 



3$: 
4$: 



262 

******* 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SEC 

ASRB 

BCC 

ERROR 

CMP 
BEQ 



» DM1 - ODD ADDRESS 
»****************** 



I262,R0 
140377, R4 
MBUFO, K5 
2 R3 
#l6o377,(R5 



(R3) 

4S 

1 

R4,(R5) 
TST263 

<R5),R3 



*****••*•**••**•**•* 



;CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFQ+1 
JRESULT S / B = 140377 
JPQINT R5 TO CHECK RESULT 
JR3 CONTAINS ^ST ADDR 



>CDEST3 = 100371 
JSCOPE SYNC - "C" = 



;TEST THE ASRB 

JBR IF CARRY CLEAR - IT SHOULD BE 

JASRB FAILED TO CLEAR THE CARRY 

JCORRECT RESULT ? 
;;BR IF YES 

JGET THE WAS DATA 



CQKDA-C KD11-K 
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BASIC LOGIC TESTS 
07-NOV-78 14:09 



MACY11 30AU052) 
T262 ASRB TES 



017402 104001 




5$: 



ERROR 



..****•*»***•*•* 

>*TEST 263 
**************** 

TST263: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 

m 



15-NOV-78 15:26 PAGE 112 
T - DM1 - ODD ADDRESS 

1 JASRB DELIVERED WRONG RESULT 

******** *••***•*•****• ********** ****** *•**•**•*•* 

VEN ADDRESS 

****************************** 



77,R4 
#?77?(R2) 



2$: 

3$: 
4S: 

5$: 
6$: 

7$: 



ASRB 

BCS 

ERROR 

CMP 
BEQ 



CMP 
BEQ 



MOV 
ERROR 



<R3)* 

4$ 

1 

jfMBUF0*l,R3 



R4,(R2) 
TST264 

(R2)/R3 



JCALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

JDEST ADDR = MBUFO 

JRESULT S / B = 77 

JR3 CONTAINS DEST ADDR 

OTPSYNC^ «C« - 

jTEST THE ASRB 

JBR IF "C" = 1 - IT SHOULD BE 

JASRB FAILED TO SET "C" 

JDID DEST REG GET INCREMENTED ? 
JBR IF YES 

JASRB FAILED TO UPDATE DEST REG 

JCORRECT RESULT ? 
JJBR IF YES 

JGET THE WAS DATA 

JASRB DELIVERED WRONG RESULT 



. . ************** 

J*TEST 264 
• • ************** 

TST264: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
SEC 



* ******* ************ ****************** *********** 

ASRB TEST - DM1 
***************< 



011203 
104001 



2$: 



3$: 
4$: 



5$: 



ASRB 

BCC 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



IMBUF0/R2 
#303, R4 
R2 R3 
#366, (R2) 

(R3) 

4$ 

1 

R4,(R2) 
TST265 



J CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
>J)EST ADDR = MBUFO 
*ESULT_S_/_ B = 303_ 
EST 



jR2), 



R3 



JR3 CONTAINS DEST ADDR 
JCDEST3 = 206 _ 
J SCOPE SYNC - "C" s 1 

JTEST THE CLRASRB 

JBR IF CARRY CLEAR - ITSHOULD BE 

JASRB FAILED TO CLEAR THE CARRY 

JCORRECT RESULT ? 
JJBR IF YES 

JGET THE WAS DATA 

J ASRB DELIVERED WRONG RESULT 
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T264 A3RR TEST - 0M1 - EVEN ADDRESS 



SEQ 0112 



017534 

mm 

017542 
01.7546 
017550 
017552 
017554 



017560 
017562 
017564 
017566 



01.757? 
017574 



01.7626 
017630 
017632 
01.7634 



0176*0 
01764? 



O00C04 
012700 
013701 
005004 
005003 
000257 
000273 



01755b 005703 



100403 
001002 
102401 
1030C1 



017570 104002 



020403 
001401 



01757c 10400; 



017600 
017600 
017602 
017606 
017612 
017614 
017616 
017620 
017622 



017624 005703 



U U U U U *i 

012700 
015701 
005004 
005104 
010403 
000257 
000264 



100003 
001402 
102401 
103001 



037636 10400? 



020403 
001401 



017644 104002 



000265 
017556 



000266 
C17624 



J*TEST 265 TST DM0 TEST - N:C = 1( 

••*•••*•**•********** *•**•*•*•***•***•< 

T$T265: 



i******* ********** 



************************* 



25: 



SCOPE 
MOV 
MOV 
CLR 
CLR 
CCC 
273 

TST 

DMT 
8NE 
RVS 
9CC 



*265,R0 
g|25,Rl 

P3 



it 



CMP 
BSQ 



ERROR 



R4.P3 
TST266 



3?: 
4S! 

5?; 

• . ******************* 

;*TKST 266 TST DVO 

;.*********** 

TST266: 

•:■■:">"•: 

MOV 



;C ALL THE SCOPE LOOP UTILITY 
>}LOAD RO WITH TEST NUMBER 
/LOAD Rl KITH TEST INSTRUCTION WORD 
;RESULT S 7 B = 000000 
JCDEST3 = 000000 
;CLEAR CODES 
;N:C=1011 

/TEST THE TST 

>N:C = 0100 ? 



;TST "AILKD TO ALTER CODES PROPERLY 

; RESULT OK ? 
?;PR IF YES 

>TSY ALTERED THE CDEST3 

!*»**« 

:c = 0100 



i********* 



********************************* ■S' ****************** 



3$: 



5$: 



MOV 
CLR 
C<]v 
MOV 
CCC 
264 

TST 

['PL 
BEQ 
9VS 
BCC 



CMP 

P EG 



i-266,P0 
R4/Pi 



F3 

3S 
3? 
45 

? 

R4,R3 
TST267 



;C ALL T K SCOPE LOOP UTILITY 

;/LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

/RESULT S / P = 177777 
;CDEST1 = 177777 
;CLEArt COOES 
;n:c=0100 

;test THE TST 

;n:C = 1000 ? 



;TST FAILED TO ALTER CODES PROPERLY 



; RESULT 
> J PP IF 



OK ? 
YES 



?TST ALTERED THE CTEST3 



. . ******«***< 

;*TEST 267 



******************************************** 

DM0 TEST - H:C, = 10 LI 
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17646 
0L7646 
017650 
|76j4 
017660 
017662 
017666 
01767C 



017674 
017676 
017700 
017702 



017706 
017710 



017714 
017714 
017716 
01772? 
017726 
017730 
017734 



017740 
017742 
017744 
017746 



01775? 
017754 



607? 



017760 
017760 
017762 
017766 



000004 
012700 

8i§28 ^ 

012703 
000257 
000273 



017672 005003 



100403 
00100 2 
102401 
103001 



017704 104002 



020403 
001401 



017712 104002 



000004 

005004 
012703 
000257 



017736 005003 



100403 
001002 
102401 
103001 



017750 104002 



020403 
001401 



017756 104002 



000004 
012700 
013701 



000267 
017672 



177777 



0C0270 
017736 

177777 



000271 
020006 



MACY11 304(1052) 
T267 CLR DVO ' 

■ *************** 

TST267: 

3CIIP 
v IV 
"OV 

CL-- 1 

yov 

CCC 
273 



15-NOV-73 15:26 PACE 114 
'EST - N :C = 1011 

********************* ********************** 



SEQ 0113 



t?67,R0 
^2$, PI 

1- 1 , R 3 



NSTHUCTION WORD 
05 



2$: 



CLR 

2 MI 
=tNE 
3VS 
»CC 

i$: ERt-'OP 

i$: cmp 

3 Svv 

: $: ERROR 
************** 



!>3 
4? 



R4/?3 
TST270 



;CALL THE SCOPE LOOP UTILITY 
;;10AD 30 WITH TEST NUMBER 
;LCAD Rl WITH TEST 
; RESULT S / P = 000 
;CDF.ST3 = 177777 
; CLEAR CODES 

;N:c = 1011 

; T EST THE CLR 
;n:c = 0100 ? 



JCLR F A t LED TO ULTER THE CODES PROPERLY 

; RESULT OK ? 
>;BR IF YFS 

;CLft DELIVERED THE WRONG RESULT 



; 4 TEST 270 
••*••*******> 

f ST270: 



************************************************* 

CLR DM0 TEST - N:C = 0000 

************************************************* 



2$: 



3$ : 
*$: 



SCOPE 
MOV 
MOV 

CLP 
MOV 
CCC 

CLP 

BMI 

B.-n; 

PVS 
BCC 



CMP 
REQ 



H27C,rtO 
f| 2S/Rl 
H-1/R3 



P3 



rt4, R3 
TST271 



; c all the scope loop utility 
;;load ro with test number 
/load rl with test instruction word 
jresult s / p. = 000000 

;CDEST3 = 177777 
/CLEAR CODES 

;test THE CLR 

;n:c - 0100 ? 



;CLR FAILED TO ALTER THE CODES PROPERLY 



; R ESULT OK ? 
;;BR IF YES 



JCLR DELIVERED TKS WRONG RESULT 



********** 



TEST 271 



TST271: 



*********************************************** 

V D^O TEST - M:C = 0110 

********************************************* 



SCOPS 

MUV 

»40V 



|271/R0 



JCALl. THE SCOPE LOOP UTILITY 

;;LI)AD TO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WCPD 



CQ 



-:,o7v 

nOBO 
<>0 81 
b082 
61183 
60H4 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 

« 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6105 
6104 
6105 

nh 

6108 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 

m 
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1 I 7 2 
17 ?->6 

oj; ,.02 



020010 
020012 
020014 
02C016 



020022 
020024 



020056 
020060 
020062 
020064 



020070 
020072 



20076 



012704 
012703 
000257 
000266 



'06 00S103 



100003 
001402 
102401 
103401 



020020 104002 



020403 
001 401 



020026 104002 




020054 005103 



100403 
001002 
102401 
103401 



020066 104002 



02040^ 
001405 



020074 104002 




0000C4 
012700 
013701 



000272 
020054 



177777 



000273 
020122 



177777 



MACY11 
T271 



2$: 



30AO052) 15-NOV-78 
COM DMO TEST - N:C = 



MOV 
MOV 
CCC 
266 



15: 26 
0110 
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SEQ 0114 



3$: 
4$: 

5$: 



COM 

BPL 
BEQ 
BVS 
8CS 

ERROR 

CMP 



R4/R3 
TST272 



;PESULT S / B = 125252 
;CDEST} = 52525 
/CLEAR CODES 
;N:C = 0110 

;TEST THE COK 

;n:c = 1001 ? 



;COV FAILED TO ALTER THE CODES PROPERLY 

>RESULT OK ? 
;;BR IF YES 

;CCM DELIVERED THE WRONG PESULT 



,*************************************************************** 



>*TEST 272 
. . *********** 

TST272: 

SCOPE 

MOV 

MOV 

CLR 

MOV 

COM 

BMI 
BNE 
BVS 
BCS 



COM DMO TEST - N:C = 1001 



**************< 



>**************************< 



k ****** * 



|272/R0 
||2$/R1 

K-1/R3 



2$: 



;c all the scope loop utility 
;;load ro with test number 
;load rl with test instruction word 
;result s / b = 000000 

;CDEST3 = 177777 
/CLEAR CODES 
>M:C = 1001 

jtest the com 
;n:c = 0101 ? 



CMP 
BEQ 



ERROR 



>C0M FAILED TO ALTER THE CODES PROPERLY 

;RESULT OK ? 
;;BR IF YES 

;C0M DELIVERED THE WRONG RESULT 

k* ** * * 

»i***( 

;CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORO 
/RESULT S / B = 000000 
;CDEST3 = 177777 
;CLEAR JgljlES 



3$: 
4$: 

5$: 

«>*************************************************************** 

;*TEST 273 INC DMO TEST - N:C 

. . *********** *********** ****** ************** ******** ************ * 

f$T273: 

SCOPE 

MOV #273,R0 
MOV g#2$,Rl 
CLR R4 
MOV #-l,R3 
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6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 



6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 

Hi? 
mi 



020122 005203 

100403 
001002 
102401 
103401 

020134 104002 



020136 
020140 



020403 
001401 



020142 104002 



020144 
020144 



02C 

020170 



020172 005203 



000004 
012700 

0° P 
012703 
000257 
000264 




020242 



005303 
100403 



000001 
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SEQ 0115 



2$! 



3$: 
4$: 

5S: 
U 



INC 

BMI 
BNK 
BVS 
BCS 



CMP 
BEQ 



;test the inc 
;n:c = 0101 ? 



;INC FAILED TO ALTER THE CODES PROPERLY 



R4,R3 
TST274 



JRESULT ok ? 
;;BR IF YES 



Is 



ERROR 2 /INC DELIVERED THE WRONG RESULT 

>********* **************************************************** 

INC DMO TEST - N:C = 01 

r**»****« ****************** 



T274i 



2S: 



3$: 
4$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

CCC 

264 

INC 

apL 

3£Q 
BVC 
BCC 



CMP 
BEQ 



ERROR 



<274/R0 



R4/R3 
TST275 



»*•********••*••*•**••**•* 

/CALL THE SCCPE LOOP UTILITY 

;;LOAD SO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;RESULT S / M 100000 

;CDEST3 = 77777 

;CLE Aft CODES 

;n:c = 0100 

;TEST THE INC 

;n:c = 1010 ? 

;inc failed to alter the codes properly 

}RESULT OK ? 
;jBR IF YES 

;INC DELIVERED THE WRONG RESULT 



. . ************** ************ **************** ******** ******* ****** 

^JgST^S^^DEC^DMO^TE^^ 

T&T275: 

;CALL THE SCOPE LOOP UTILITY 
#275, RO ;>LOAD RO WITH TEST NUMBER 

8*2$, Rl ;LOAD Rl WITH TEST INSTRUCTION WORD 

R4 /RESULT S / B = 000000 

#1,R3 ;CDEST3 = 1 

? CLEAR CODES 
JN:C = 1011 



i********i 

SCOPE 
MOV 
MOV 
CLR 
MOV 



2$: 



DEC 
BMI 



R3 
3$ 



JTEST THE DEC 
;n:c = 0101 7 
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310 / 

5190 



6185 
6186 
6187 

6191 

mt 

6194 
6195 
6196 
6197 

till 
6200 
62"" 



6204 
6205 

im 

6208 

tm 

6211 
6212 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6220 

tm 
m\ 

mi 

6227 
6228 

im 

6231 
6232 
6233 



020244 
020246 
020250 



020262 
0.M62 



020300 
020304 
020306 

020310 

020312 
020314 
020316 
020320 

020322 

020324 
020326 



001002 

181481 



020252 104002 



020254 020403 
020256 001401 



020260 104002 



000004 



m\ m m 



50257 
00274 

005303 

100403 
001402 
102001 
103001 

104002 

020403 
001401 



020330 104002 



020^4 

8381*2 

020350 
020352 



020354 005303 



000004 
012700 
013701 
012704 
005003 
000257 



100000 



000277 
020354 
177777 
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SEQ 0116 



3$: 
4$: 



BNE 
BVS 

BCS 

ERROR 

CMP 

BEQ 

ERROR 



3? 
4$ 
2 

R4,R3 
TST276 

2 



5$: 
I* 

• t ************************** 

TST276: 



************************** 

TEST 276 DEC DM0 TEST 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 
274 

DEC 

BMI 

BEQ 
BVC 
BCC 

ERROR 

CMP 
BEQ 



|276,R0 
I100000/R3 



R4,R3 
>T27 1 ] 



5$: 



TS 

ERROR 2 
i **•••**•*••***** ********** 

j ,***!** ******** *S**2*2*ISS* 

TST277: 

SCOPE 
MOV 
MOV 
MOV 
CLR 
CCC 



;DEC FAILED TO ALTER THE CODES PROPERLY 

JRESULT OK ? 
;>BR IF YES 

/DEC DELIVERED THE WRONG RESULT 
************************************* 

- N:C = 1100 

****** ********************** ********* 

;call the scope loop utility 
;;load ro kith test number 

;CDEST3 = 100000 
/CLEAR CODES 
;NSC = 1100 

;TEST THE DEC 

;N:c = 0010 ? 



;DEC FAILED TO ALTER THE CODES PROPERLY 

> RESULT OK ? 
;;BR IF YES 



;DEC DELIVERED THE WRONG RESULT 
i****i 
-NSC = 



• *********** ************* *•*****•••* 

***** ************** *********** 



^$: 



DEC 



R3 



>CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

>LOAD Rl WITH TEST INSTRUCTION WORD 

/RESULT S / B = 177777 

>CDEST3 - 000000 

; CLEAR CODES 

/TEST THE DEC 
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SEQ 0117 



020356 
020360 
020362 
020364 

020366 

020370 
020372 

020374 




020426 
020430 
020432 

020434 

020436 
020440 



020444 
020444 
020446 



0462 



020474 
020476 
020500 



100003 
001402 
102401 
103001 

104002 

mm 

104002 



000004 

012700 000300 
"3701 020422 



3 

000257 
000270 



020422 006303 
020424 100403 



ooioo; 

102001 
103401 

104002 

020403 
001401 



020442 104002 



000004 

P8J 

012704 
012703 
" 257 
565 



020472 006303 



100003 
001402 
102001 



100000 



mm 

100000 
040000 



3$: 
4$: 



BPL 
BEQ 
BVS 
BCC 



CMP 

BEQ 



}N:C 



1000 ? 



R4,R3 
TST300 



;DEC FAILED TO ALTER THE CODES PROPERLY 

;RESULT OK ? 
J?BR IF YES 



5$: 



ERROR 
• • *********** 

;*TEST 300 
. . *********** 

TST300: 

SCOPE 

MOV 

MOV 

CLR 

MOV 

CCC 

SEN 



?$: 



3$: 
4$: 

5$: 



ASL 

BMI 

BNE 
BVC 
BCS 



CMP 
BEQ 



ERROR 



*************** 

ASL DMO TEST 
*••****••***•*• 



#300, RO 
||2$,Ri 

#100000, R3 



R3 
3$ 

n 

4$ 

2 

R4/R3 
TST301 



;DEC DELIVERED THE WRONG RESULT 
************************************* 

- n:c = iooo 

****************** ******************* 



;C ALL THE SCOPE LOOP UTILITY 

;>LOAD RO WITH TEST NUMBER 

;L0AD Rl WITH TEST INSTRUCTION WORD 

>RESULT S / B = 000000 

;CDEST3 = 100000 

/CLEAR CODES 

;N:c = 1000 

;TEST THE ASL 

;n:c = oill ? 



. J ****** ******** •*•*••••**** 

;*TEST 301 
. • *********** 

TST301: 

SCOPE 
MOV 
MOV 
MOV 
MOV 

SSS 



;ASL FAILED TO ALTER THE CODES PROPERLY 

;RESULT OK ? 
;jBR IF YES 

;ASL DELIVERED THE WRONG RESULT 

************************************* 

- N:C = 0101 
•*••***••••**•••••*•*•*< 



301, R 



^6o6,R4 
0000, R3 



/>- 



2$: 



ASL 

BPL 
BEQ 
BVC 



R3 

3§ 
35 
3$ 



»****«• ******* 

/CALL THE SCOPE LOOP UTILITY 
LOAD RO WITH TEST NUMBER 
OAD Rl WITH TEST INSTRUCTION WORD 
. ESULT S / B = 100000 
;CDEST3 = 40000 
/CLEAR CODES 
>N:C = 0101 

;TEST THE ASL 

;NIC = 1010 ? 



020502 
021504 



-X BASIC LOGIC TESTS 
07-NOV-78 14:09 



(.2 50 

f ?tl 
1292 
"2?3 
6294 
1295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 

P 

6308 

i|° 

6312 
6313 
6314 

6317 
6318 
6219 
6320 
6321 
6322 
6323 
6324 
6325 

Mil 



30 

6333 
6||4 

63p 
6337 

mi 

6340 
6341 
6342 
6343 
6344 
6345 



020506 
020510 



020512 104002 



02 
O'i 

O20S3 
020532 
020534 



20514 
20514 
20516 
20522 



020552 
020554 



020560 
020560 

Mill 

020576 

mm 

020606 

020610 
020612 
020614 
020616 



103001 
104002 



020403 
001401 



000004 
012700 
013701 

mm 

000257 
000262 



020536 006303 

020540 100403 

020542 001002 

020544 102401 

020546 I0300I 

020550 104002 



020403 
001401 



020556 104002 



000004 
01 



mm 

)I2703 



2703 



006103 

100403 
001402 
102001 
103401 



020620 104002 



000302 
020536 



mm 

052525 
125252 
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SEQ 0118 



3$: 
4$: 

5$: 



BCC 
ERROR 



CMP 
BEQ 



ERROR 



4$ 

2 

R4.R3 
TST3C 



;asl failed to alter the codes properlv 

jresult ok ? 
;;br if yes 

;asl delivered the wrong result 



• . **•***********••*•*****••*•*******••*•*•••*•**••****•***•*•*••* 

?'lS§t 302 *SL DM0 TEST - N:C = 0010 

j . *************************************************************** 

TST302: 

/CALL THE SCOPE LOOP UTILITY 

;;L0AD R0 WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 000000 
JCDEST3 = 000000 
JCLEAR CODES 
jn:c = 001(5 



SCOPE 

MOV 

MOV 

CLR 

CLR 

CCC 

SEV 



#302,R0 
jjjj2$,Rl 

R3 



2$: 



3$: 
4$: 



ASL 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 



R3 
3$ 

n 

4S 

2 

R4,R3 
TST303 



JTEST THE ASL 
;n:C = 0100 ? 



;ASL FAILED TO ALTER THE CODES PROPERLY 



JRESULT OK ? 
JJBR IF YES 



5$: ERROR 2 }ASL DELIVERED THE WRONG RESULT 

*************************************************************** 

*********************** 



J 4 TEST 303 ROL DM0 TEST - N;C = 1101 

J.**************************************** 

TST303 



2Si 



3$: 



SCOPE 




MOV 




MOV 


If: 


MOV 




MOV 


#i: 


SB 




ROL 


R3 


BMI 


3$ 


BEQ 


3? 


BVC 


3? 


BCS 


4S 


ERROR 


2 



J3,R0 
!525,R4 



;CALL THE SCOPE LOOP UTILITY 
J/LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = 52525 
JCDESTJ = 125252 
/CLEAR CODES 
>N:C = 1101 

JTEST THE ROL 

JN:C = 0011 ? 



JROL FAILED TO ALTER THE CODES PROPERLY 
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SEQ 0119 



6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 



6361 
6362 
6363 

im 
tip 

6368 
63§9 

6 



5374 

m 



63j 

6371 
6378 
6379 



6385 

till 



mi 

6395 



>401 



020622 020403 
020624 001401 



020626 104002 



)20630 
320630 
02063" 
02063 




2070$ 

\w 

071« 



020716 
020720 

020722 



020734 



020736 
020740 



000004 

mm 

112705 

\m 

000265 



020656 006103 



020660 
020662 
020664 
020666 

020670 
(520672 
020674 



020676 104002 



100003 
001402 
102001 
103001 

104002 
020403 
001401 



000004 

\m 

000257 
000262 

006103 

mm 

102401 
103001 

104002 

020403 
001401 



0^030 



0722 



4$: 



5$: 



CMP 

BEQ 



ERROR 



R4,R3 
TST304 



• • ************************** 

;*TEST 304 ROL DMO TEST 

************************** 

TST304: 



2$: 



SCOPE 
MOV 
MOV 

mov 

MOV 
CCC 
265 

ROL 

BPL 
BEQ 
BVC 
BCC 

ERROR 

CMP 

BEQ 



&8S 



253, R4 
25, R3 



R3 



2 

R4»R2 
TST3? 



;RESULT OK ? 
JJBR IF YES 

;ROL DELIVERED THE WRONG RESULT 

************************************* 

- N:C = 0101 
********** **************** •* ********* 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S 7 B = 125253 
)CDEST3 = 52525 
; CLEAR CODES 
JN:C = 0101 

>test the rol 
jn:c = ioio ? 



JROL FAILED TO ALTER THE CODES PROPERLY 
JRESULT OK ? 
JJBR IF YES 



************************** 



5$: 

>h§.X**2****< 

TST305: 

SCOPE 

MOV 

MOV 

CLR 

CLR 

CCC 

SEV 



;ROL DELIVERED THE WRONG RESULT 
ft************************************ 

*S**S***X5SX***S*S***2Si2* ************ *********** 



020742 104002 



2$: 



3S: 
4$! 

5$i 



ROL 

BMI 
BNE 
BVS 
BCC 



CMP 
BEQ 



|305,R0 



R3 



4$ 
2 

R4,R3 
TST306 



;C ALL THE SCOPE LOOP UTILITY 

J) LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

/RESULT S / B = 000000 

j c Best 3 * oooooo 

JCLEAR gg^ES 

JTEST THE ROL 
JN:C s 0100 ? 



JROL FAILED TO ALTER THE CODES PROPERLY 

J RESULT OK ? 
J J BR IF YES 

JROL DELIVERED THE WRONG RESULT 
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6404 

ml 

6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6439 
6439 
6440 
6441 
6442 
6443 
6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 



mm 

020746 
1)20752 
020756 

Will 

020770 

020772 

020774 
020776 
021000 
021002 



021004 104002 



021006 
021010 



021014 
021014 
021016 
021022 
021026 
021030 
021034 
021036 

021040 

021042 
021044 
021046 
021050 



021054 
021056 



000004 

urn 

012704 

mm 

000265 

005503 

100003 
001402 
102001 
103001 



020403 
001401 



021012 104002 



021052 104002 



020403 
001401 



021060 104002 



021062 



mm 



000004 

012700 000307 
013701 021040 
005004 

012703 177777 

000257 

000273 

005503 

100403 
001002 
102401 
103401 
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SEQ 0120 



u 



*************************************************************** 



TST306: 



2$: 



3$: 
4$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

CCC 

265 

ADC 

BPL 
BEQ 
BVC 
BCC 



CMP 
BEQ 



»306,R„ 



jcall the scope loop utility 
;;load ro with test number 
;load ri with test INSTRUCTION NORD 



; RESULT S / B = 100000 
;CDEST3 = 77777 



3$ 
3| 
35 
4$ 

2 

R4#R3 
TST3? 



;CLEAR CODES 
?N:C = 0101 



JTEST THE ADC 
>N:C = 1010 ? 



>ADC FAILED TO ALTER THE CODES PROPERLY 

;RESULT OK 7 
;;BR IF YES 



5$: ERROR 2 ;ADC DELIVERED THE WRONG RESULT 

************ *************** *************************** ********* 

************* 



;*TEST 307 ADC DM0 TEST - N|C = 1011 

• .**************** **************** ********** **•*•••* 

TST307: 





SCOPE 
MOV 
MOV 
CLR 
MOV 
CCC 
273 


#307,R0 
||2$,R1 

#-l,R3 


2$: 


ADC 


R3 




BMI 
BNE 
BVS 
BCS 


3$ 

3? 
3S 
4$ 


3$: 


ERROR 


2 


4$: 


CMP 
BEQ 


R4,R3 
TST310 


5$: 


ERROR 


2 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;R£SULT S / B =000000 
JCDEST3 = 177777 
;CLEAR CODES 
;N:C = 1011 

;TEST THE ADC 

;N:C = 0101 ? 



;adc FAILED TO ALTER THE CODES PROPERLY 

> RESULT OK ? 
;;BR IF YES 



;ADC DELIVERED THE WRONG RESULT 
•.**••*•***•• ********************* ********************** ********* 

;*TEST 310 ADC DM0 TEST - N:C = 1010 

•t*************************************************************** 

TST310: 
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6458 
6459 
6460 

tm 

6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 

m 

6473 
IVlt 

6478 
6479 
6480 
6481 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
6489 

mi 

6492 
6493 

mi 

6496 
6497 

1^1 
6500 
6501 

im 

6504 
6505 
6506 
6507 
6508 
6509 
65 } 



021062 
021064 
021070 
021074 
021100 
021104 
021106 

021110 

021112 
021114 
021116 
021120 

021122 

021124 
021126 



021132 

821113 

021140 

8p||| 

02H54 

021156 



01... . 
021166 



021172 
021174 



6512 
6513 



°2}200 
021202 
021206 
021212 



000004 
012700 
013701 
012704 
012703 
000257 
000272 

005503 

100003 
001402 
102401 
103001 

104002 

020403 
001401 



021130 104002 



000004 
012700 

8Js3o4 
012703 
000257 
000273 

005603 

mm 

102401 
103001 



021170 104002 



020403 
001401 



021176 104002 



000004 
012700 
013701 
012704 



000310 

mm 



000311 
021156 



000001 



000312 
021226 
077777 



MACY11 
T310 



2$: 



30A(1052) 15-NOV-78 
ADC DM0 TEST - N:C = 



SCOPE 

MOV 

MOV 

MOV 

MOV 



15:26 
1010 
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SEQ 0121 



3$: 
4$: 



. . ***** 

J*TEST 
• . ***** 

TST311 



CCC 
272 

ADC 

BPL 
BEQ 
BVS 
BCC 



CMP 
BEQ 

ERROR 

t **** 

311 
■ **** 



#310,R0 
#-l,R3 



R4,R3 
TST311 



***************** 

SBC DM0 TEST 
****** ********** 





SCOPE 




MOV 




MOV 




CLR 




MOV 




CCC 




273 


2$: 


SBC 




BMI 




BNE 




BVS 




BCC 


3$: 


ERROR 


4$: 


CMP 


BEQ 


5$: 


ERROR 



#311, RO 
g| 25 ' R1 
#1,R3 



R3 



..**** 

;*TEST 
.,**** 

TST312 



R4.R3 
TST312 



t** ******* ************ 

312 SBC DM0 TEST 

********************** 



SCOPE 

MOV #312,R0 

MOV (?#2S£r1 

MOV #077777/ R4 



/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;RESULT S 7 B = 177777 

;CDEST3 = 177777 

/CLEAR CODES 

>N:C = 1010 

;TEST THE ADC 

;N:C = 1000 ? 



;ADC FAILED TO ALTER THE CODES PROPERLY 

/RESULT OK ? 
;;BR IF YES 

>ADC DELIVERED THE WRONG RESULT 
• *•******•*• *********** ************* * 

- n:c = 1011 

************************************* 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = 000000 

;CDEST3 = *1 

JCLEAR CODES 

>N:C = 1011 

JTEST THE SBC 

>N:C = 0100 ? 



;SBC FAILED TO ALTER THE CODES PROPERLY 

/RESULT OK ? 
>?BR IF YES 

>SBC DELIVERED THE WRONG RESULT 
************************************* 

- n:c = 0101 
******** ******************** ********* 

/CALL THE SCOPE LOOP UTILITY 
; J LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 077777 
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w 



021226 005603 



021240 104002 

mm mm 

021246 104002 



020403 
001401 



021316 104002 




100000 




000314 
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SEO 0122 



2$: 



3$: 
4$: 

5S: 



MOV 
SS5 

SBC 



BMI 
880 
IVC 
BCC 



11 
ERROR 



CMP 
BEQ 



ERROR 



#100000,R3 

R3 

2 

?lf3?3 
2 



00000 
S 



IWVM 

7 TEST THE SBC 
>M:C = 0010 ? 



>SBC FAILED TO ALTER THE CODES PROPERLY 

\Wkl ?ls ? 

>SBC DELIVERED THE WRONG RESULT 



..*****************************•********************************* 



TST313 



111. 



a*********************** 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 

« 

SBC 

BMI 

§11 
BCC 

ERROR 

CMP 
BEQ 



R3 
3S 

n 

4$ 

2 

R4/R3 
TST314 




RO W_TH Tf ST NUMI__ 
" ITH TEST IHSTRUCTION WORD 



1CALL THE SCOPE LOOP UTILITY 
); LOAD. ROJfJTH. TEST _NU MB E" 



J TEST THE SBC 
>H:C = 0000 ? 



>SBC FAILED TO ALTER THE CODES PROPERLY 



; RESULT OK ? 
j;BR IF YES 



5$: ERROR 2 ;SBC DELIVERED THE WRONG RESULT 

****** **•*••*********•***•*•****•••••••***** ************ ******* 

******************* 



t*********************** *»**»**»***«»* ******** 

;*T£ST 314 SBC DM0 TEST - NIC * 0111 

j.********************** ********************** 

TST314; 



SCOPE 
MOV 
MOV 
MOV 
CLR 



>CALL THE SCOPE LOOP UTILITY 
|14,R0 ;>LOAD RO WITH TEST NUMBER 

ma 1 ttHMVW tm,m nKnm w0RD 

I 7CDEST3 - 000000 

/CLEAR CODES 
)N:C = 0111 



CQKDA-C 
CQKDAC.P 

6570 
6571 

65T" 



657^ 



66C 

ft 

II 

ft 

661 

66 
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021344 



005603 

mm 

mm 

104002 

020403 
001401 



021364 104002 



021 346 
021350 
021352 
021354 

021356 

021360 
021362 




021426 104001 

mm mm 
mm mm 



>1440 



HI 



„_ 152 
21456 

Mi 



J00 
5004 



Jf m 

lUl 



mm 



MACYll 


30A(1052) 


15-NOV-78 


15:26 PAGE 124 


T314 


SBC DM0 


TEST - N:C s 


0111 


2$: 


SBC 


R3 


>TEST THE SBC 




BPL 




;n:c * 1001 ? 




BEQ 








BVS 








BCS 






3$: 


ERROR 


2 


;SBC FAILED TO 


4$: 


CMP 


R4,R3 


;RESULT OK ? 


BEQ 


TST315 


>>BR IF YES 


5$: 


ERROR 


2 


)SBC DELIVERED 



SEQ 0123 



.£*************************************************************** 

T5T315: 

SCOPE JCALL THE SCUPE LUUP UTIL. 



SCOPE 
MOV 
MOV 



2$: 



3$: 
4$: 



5$: 



MOV 
CLR 
CLR 

m 

TST 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



#315, RO 
j|iuF0*R2 
(R2) 



JCALL_TH| SjgPE_L.gOP_JjTIL.ITY 
, _OAD Rl W" 

;8esults 



JJLOAD RO WITH TEST NUM 

>LQAD Rl WITH TE 

JDEST ADDR = MBU 



(R2) 

3S 

if 
4$ 

1 

R4_(R 
"5T31 



(RESULT S / B = ° 
SCDEST3 = 000000 
j CLEAR CODES 
>N:C=1011 

>TEST THE TST 

>N:C = 0100 ? 



WITH. Tg§T INSTRUCTION WORD 
0000 



TS1 
JR2),R3 



?TST FAILED TO ALTER CODES PROPERLY 

m 



SULT 
I IF 



3K ? 
?ES 



>GET THE WAS DATA 

>TST ALTERED THE CDBST3 



*************************************************************** 

******* ******** ********* 



yXI*5***..*.***m*85!l*IS.X*;*n**5*2*2* 

T316 " SCOPE JCALL THE SCOPE LOOP UTILITY 

MOV #316, RO J i LOAD RO "ITH TEST NUMBER 

MOV llj&Rl >L0AD Rl WITH 

MOV IMB0F0/R2 ~" 

CLR R4 

COM R4 



Rl W... 

;DEST ADDR = MBUFO 



TEST INSTRUCTION WORD 



JRESULT S 



HjjV #-l,(R2) jjjpjSf 3_?_177777 



264 



CODES 

;n:c*oioo 



B J<r __177777 
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6626 
6627 
6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 

ffli 
6640 
6641 

mi 

6644 
6645 

fH* 

6648 
6649 
6650 
6651 
6652 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 



021472 005712 



021474 
21476 
021500 
021502 



021506 
021510 



021516 
021516 

\m 

_ 1540 
021542 
021546 
021550 
021554 
021556 



021? 
021 



021562 
021564 
021566 
021570 



021574 
021576 



0216C0 
021602 



021604 
021604 
021606 
021612 
021616 
021622 



100003 
001402 
102401 
103001 



021504 104001 



020412 
001402 



011203 
104001 



000004 
012700 
013701 

032737 
001401 
000000 
012702 
005004 
012712 
000257 
000273 



021560 005012 



100403 
001002 
102401 
103001 



021572 104001 



020412 
001402 



011203 
104001 



000317 
021560 

000100 063234 

063312 
177777 



000004 
012700 

011701 

012702 06331.2 
005004 



000320 
021632 
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T316 TST DM1 TEST - N:C = 



15:26 
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SEQ 0124 



2$! 



3$: 
4$: 



5$: 



TST 

BPL 
BEQ 
BVS 
BCC 



CMP 
BEQ 



MOV 
ERROR 



(R2) 
3S 

4S 
1 

R4,(R2) 
5T317 



;TEST THE TST 
;n:c = 1000 ? 



;TST FAILED TO ALTER CODES PROPERLY 



TS1 



£R2),R3 



; RESULT OK ? 
>;BR IF YES 



;GET THE WAS DATA 

;TST ALTERED THE CDEST3 



»•*••****«*** 



************************ 



. . ************** ******* ******* ****** *•*•**< 

;*TEST 317 CLR DMl TEST - NSC = 1011 

• • ***************** ******************4****< 

TST317: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #317, RO JJLOAD RO KITH TEST NUMBER 

MOV §#2StRl JLOAD Rl WITH TEST INSTRUCTION WORD 

•SBTTL USER CONTROLLED BREAKPOINT — BIT6 



3$: 
4$: 



BIT 

BEQ 

HALT 

MOV 

CLR 

MOV 

CCC 

273 

CLR 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



#BIT6,i#BPTLOC 
•+4 

|MBUF0,R2 
#-l,(R2) 



(R2) 

3$ 
3$ 
35 
4$ 



R4/(R2) 
TST320 

|R2),R3 



/BREAKPOINT HALT SET ?? 
;BR IF NOT 

;BREAK - DEPRESS CONTINUE TO RESTART 

>DEST ADDR = MBUFO 

/RESULT S / B = 000000 

JCDEST3 = 177777 

;CLEAR CODES 

;N:C = 1011 

;TEST THE CLR 

;n:c = 0100 ? 



;CLR FAILED TO ALTER THE CODES PROPERLY 

JRESULT OK ? 
;;BR IF YES 

>GET THE WAS DATA 
>CLR DELIVERED THE WRONG RESULT 



5$: 

- . ************** **************************** ****•*•***•• •• ******* 

;*TEST 320 CLR DM2 TEST - N:C = 0000 

j « ****** ********************* ************* 

TST320: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #320/R0 ;;LOAD RO WITH TEST NUMBER 

MOV I#2S/R1 ;LOAD Rl WITH TEST INSTRUCTION WORD 

MOV |MB0F0,R2 JDEST ADDR = MBUFO 

CLP R4 /RESULT S / B = 000000 
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6682 
6683 
6684 
6685 

III* 

6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 

tm 

6704 
6705 

m 

6708 
6709 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6219 
6720 
6721 

%m 

6724 
6725 

w 

6728 
6729 
6730 

ih 

6733 

6736 
6737 



021624 
021630 



021634 
021636 
021640 
021642 



021656 
021660 



021666 
021666 
021670 
021674 
021700 
021704 
021710 
021714 
021716 



021744 
021744 
021746 



013712 
000257 



021632 005022 



100403 
001002 
102401 
103001 



021644 104001 



021646 
021652 



022702 
001401 



021654 104005 



02044] 
00140* 



\im mm 



000004 



on 

Q12704 

mm 

000266 



021720 005112 



021722 
021724 

mm 

021732 

mm 

021740 
021742 



100003 
001402 
102401 
103401 

104001 

mm 

011203 
104001 



000004 
012700 



063324 



063314 



000321 
021720 
063312 
125252 
052525 



MACY11 

T320 



2$: 



3$: 
4$: 

o$: 
6$: 

7$: 

..****« 

;*TEST 
• • **•*) 

TST321! 



2$: 



5$: 



30A(10 
CLR D 

MOV 
CCC 

CLR 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

SRROR 

CMP 

BEQ 

MOV 
ERROR 



52) 15-NOV 
H2 TEST - N 



-78 15:26 
C = 0000 
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SEQ 0125 



9#DWTA+2,(R2) 



(82)* 



|HBUF0+2 



/R2 



R4,-(R2) 
TST321 

(R2)/R3 



;CDEST3 = 177777 
JCLEAR CODES 



JTEST THE CLR 
;N:C = 0100 ? 



>CLR FAILED TO ALTER THE CODES PROPERLY 

>DID CLR INCREMENT DEST REG 
;BR IF YES 

;CLR FAILED TO UPDATE DEST REG 

/RESULT OK ? 
JJBR IF YES 



***************** 
*&***, 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
266 

COM 

BPL 
BEQ 
BVS 
BCS 

ERROR 
CMP 
8EQ 

MOV 
ERROR 



|321,R0 

iMBiJfOf R 
1125252, 
|52525,( 



(R2) 

3$ 
3$ 
3f 
4$ 

k 

|R2)/R3 



;GET THE WAS DATA 
JCLR DELIVERED THE WRONG RESULT 

***************************************** 

TEST - N:C = 0110 

****************************** *********** 

;c all the scope loop utility 

;;load ro with test number 

/load rl with test instruction wof 

2 ;dest addr = mbufo 

r4 jresult s / b = 125252 

R2) HOEST3 = 52525 

/CLEAR CODES 
;n:c = 0110 

;TEST THE CLR 

;n:c = 1001 ? 



;*TEST 
" • ***** 

TST322: 



***************** 

322 COM DMl 



;COM FAILED TO ALTER THE CODES PROPERLY 
J RESULT OK ? 
;;BR IF YES 

/GET THE WAS DATA 
;COM DELIVERED THE WRONG RESULT 

********** ******************************* 

TEST - N:C = 1001 



000322 



********************************************************** 

SCOPE 

MOV #322, RO 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
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®9 

6748 
6749 



6753 




6791 
679] 
6793 



•Pi 

032102 
022106 



000323 
022050 
063312 

mm 



000004 
012700 
013701 
012702 



000324 
022126 
063312 
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SEQ 0126 



MOV 
MOV 
CLR 
MOV 

%\ 



Rl 

0,R2 



#-l,(R2) 



JLOAD Rl WITH TEST INSTRUCTION WORD 

>DEST ADDR ■ MB0FO 

>RESULT S / B - 000000 

JCDEST3 = 177777 

5 CLEAR CODES 

>N:C = 1001 



021774 


005112 


2$: 


COM 


(R2) 


;TEST THE COM 


021776 
°2*?0p 
022002 
022004 


100403 
001002 
102401 
103401 




BMl 
BNE 
BVS 
BCS 


3S 
35 
3f 
4$ 


?n:c = 0101 ? 


022006 

922010 
022012 


104001 
020412 
001402 




ERROR 

CMP 

BEQ 




>CQM FAILED TO ALTER THE CODES PROPERLY 
;RESULT OK ? 

;;br if yes 


022014 
022016 


011203 
104001 


5$: 


MOV 
ERROR 


|R2),R3 


;get the has data 

;com delivered the wrong result 



J J ****** ************************* ********************* »»*»»****•* 

****** **** i****12U ************* *********** 

TST323: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #323, RO JJLOAD RO WITH TEST NUMBER 

MOV @#2S#R1 /LOAD Rl KITH TEST INSTRUCTION WORD 

MOV §MBUF0,R2 ;DEST ADDR = MBUFQ 

CLR R4 JRESULT S / B = 000000 

MOV #-l,(R2) JCDEST3 = 177777 

CCC ;CLEAR CODES 

273 >N:C = 1011 



2$: 



5$: 



INC 

BMl 
BNE 
BVS 
BCS 

ERROR 

CMP 

BEQ 

MOV 

ERROR 



(R2) 
3? 

3| 
4$ 



1 

TSl 
JR2),R3 



>TEST THE INC 

;n:c = oioi ? 



;INC FAILED TO ALTER THE CODES PROPERLY 
/RESULT OK ? 
JJBR IF YES 

JGET THE WAS DATA 

>INC DELIVERED THE WRONG RESULT 



j*TEST 
}•**** 

TST324 



********* ******** ******************** •*•••**•*** 

INC DMl TEST - N:C = 0100 
******************** 



************** 

TEST 324 x 

************************************ 



t ****** ****************** 



SCOPE 
MOV 
MOV 
MOV 



I324/R0 
JmbW 0^R2 



/CALL THE SCOPE LOOP UTILITY 
;:LOAD RO WITH TEST NUMBER 
HOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
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T324 



2$: 



INC DMl TEST - N:C 



MOV 
MOV 
CCC 
264 



15:26 
0100 
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SEQ 0127 



^7?77°tR2) 



= 100000 



INC 

BPL 
BEQ 
BVC 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



(R2) 



R4,(R2) 
TST325 

(R2),R3 



/RESULT S / B = 
KDEST3 = 77777 
>CLEAR CODES 
>N:C = 0100 

;test the inc 
?n:c = 1010 ? 



;INC FAILED TO ALTER THE CODES PROPERLY 
JRESULT OK ? 
>JBR IF YES 

;GET THE WAS DATA 
>INC DELIVERED THE WRONG RESULT 



5$: 

. . *************************************************************** 

;*TEST 325 DEC DMl TEST - N:C = 1011 

j . *************************************************************** 

TST325: 



2S! 



5$: 



MOV 
MOV 
CLR 
MOV 

S5S 

DEC 

BMl 
BNE 
BVS 
BCS 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



#1/(R2) 



<R2) 



1 

TSl 



R2 



?CALL_THE SC|PE T LQOP„UTiLJTY 

H TE 

>DEST ADDR = MBUF 



>;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 



JR2),R3 



JRESULT S / B = 000000 
;CpEST3 = i 

;test the dec 
?n:c = oioi ? 



;DEC FAILED TO ALTER THE CODES PROPERLY 
; RESULT OK ? 
>>BR IF YES 

/GET THE WAS DATA 

;DEC DELIVERED THE WRONG RESULT 



U******* ******************** ************************************ 
, TEST 326 DEC DMl TEST - N:C = 1100 

J « *************************************************************** 

TST326: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 



I326/R0 

177777^4 
»100000,(R2) 



JCALL_THE SC^PE T L^P..UTILITY 
jDEST. ADdR> H mI§ 



$;LOAD RO WITH 
;LOAD Rl WITH 
JDEST AOr 



JRESULT S 
JCDEST3 



/ B = 77777 
100000 



MUMBEft 
INSTRUCTION WORO 
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SEQ 0. 



685C 



022 

022: 



mm 
mm 

022272 
022274 
022276 

022300 
022302 



2304 
?3Q4 

115 

2316 
5322 



02232( 
02233C 



022334 
322336 

o: 

o: 

022344 
022346 
022350 

022352 
022354 



022356 
322356 
022360 
022364 
022370 
022374 
022376 
022402 
022404 



000257 
000274 



022260 005312 



100403 
001402 
102001 
103001 

104001 
020412 
001402 

011203 
104001 



000004 
012700 
013701 
012702 
012704 



022332 005312 



100003 
001402 
102401 
103001 

104001 
020412 
001402 

011203 
104001 



000004 
012700 
013701 
012702 
005004 
012712 
000257 
000270 



0003 27 
022332 



000330 
022406 
063312 

100000 



2$: 



5$: 



CCC 
274 

DEC 

BMI 
BEQ 
BVC 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



(R2) 



|R2),R3 



R4,(R2) 
TST327 



••*•*•********•*•••*• ******* 

;*TEST 327 DEC DM1 TEST 

**************************** 

TST327: 



2$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

OEC 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 

BEQ 

MOV 

ERROR 



»327,R0 
iMBuf 0,R2 



(R2) 



R4 t (R2) 
TST330 

(R2),R3 



************************** 

ASL DM1 TEST - N:C = 1000 
************************* 



;*TEST 330 
; • ***********< 

TST330: 

SCOPE 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 

SEN 



/CLEAR CODES 
;l»:c = 1100 



;TEST THE DEC 
;H:c = 0010 ? 



;dec failed to alter the codes properly 
; result ok ? 
;;br if yes 

;get the has data 

;dec delivered the wrong result 

r***»* *••*•*••** ************** ******* 

- HSC = 0000 
************************************* 

>CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFQ 

/RESULT S / B = 177777 

;CDEST3 = 000000 

/CLEAR CODES 

?TEST THE DEC 

;n:c = 1000 ? 



;DEC FAILED TO ALTER THE CODES PROPERLY 
>RESULT OK ? 
;;BR IF YES 

>GET THE WAS DATA 
>DEC DELIVERED THE WRONG RESULT 

******************* ****************** 
************************ 



#330, RO 
§#2$/Rl 
IMBUF0/R2 
R4 

#100000/ (R2) 



/CALL THE SCOPE LOOP UTILITY 

>>L0AD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

JDEST ADDR = MBUFO 

JRESULT S / B = 000000 

JCDEST3 = 100000 

;clear codes 
;n:c = 1000 
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6906 022406 006312 
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022510 

mm 

022516 
022522 
022526 



022530 
022532 
022534 



100403 
001002 
102001 
103401 

104001 
020412 
001402 

011203 
104001 



mm 

013701 
012702 

mm 

000257 
000265 



022410 
022412 

mm 

222420 

mm 

022426 
022430 



022432 

mm 

022440 
022444 
022450 
022454 

022462* 

022464 006312 



104001 
020412 
001402 

011203 
104001 



mm 

013701 
012702 
005004 
005012 
000257 
000262 



022536 006312 




000331 
022464 
063312 
100000 
040000 



000332 
022536 
063312 



T330 
2$: 



15:26 
1000 
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SEQ 0129 



5$: 



ASL 

BMI 
BNE 
BVC 
BCS 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



(R2) 
3$ 



4$ 
1 

TSl 
£R2)/R3 



I ************************** 



; 4 TEST 331 
• • «*••******« 

TST331: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
265 

ASL 

BPL 
BEQ 
BVC 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



I331/R0 

«2l/Rl 

|MBUF0 t R2 

I1Q0000/R4 

|40000,(R2) 



> TEST THE ASL 
;N:C = 0111 ? 



JASL FAILED TO ALTER THE CODES PROPERLY 
>RESULT OK ? 
>>BR IF YES 

>GET THE WAS DATA 

;ASL DELIVERED THE WRONG RESULT 

****************************** ******* 

- N:c = 0101 
************************************* 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
"LOAD Rl WITH TEST INSTRUCTION WORD 
/DEST ADDR = MBUFQ 

jresult s / b = looooo 

;CDEST3 = 40000 
;CLEAR CODES 
;N:C = 0101 



(R2) 
3$ 



4S 

k 

|R2)/R3 



R4,(R2) 
5T332 



5$: 

..************************** 

>*TEST 332 ASL DM1 TEST 

• • ************************ •• 

TST332: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
CLR 
CLR 
CCC 
SEV 

ASL 



#332, RO 

|MBUF0,R2 

(R2) 



(R2) 



;TEST THE ASL 
>N:C = 1010 ? 



;asl failed to alter the codes PROPERLY 
;result ok ? 
;;br if yes 

/get the was data 

jasl delivered the wrong result 

************************************* 

- N:C = 0010 
************************************* 

/CALL THE SCOPE LOOP UTILITY 

;?LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

;RESULT S / B = 000000 

>CDEST3 = 000000 

>CLEAR CODES 

;N:C = 0010 

JTEST THE ASL 
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mm mn 

022544 10240 



J546 
|550 



loiool 

4001 

ml 



mm n\m 
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ASL DM1 TEST - H :C = 0010 

)H:C = 0100 ? 



SEQ 0130 



5$: 



BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



JR2),R3 



JASL FAILED TO ALTER THE CODES PROPERLY 
}RESULT OK ? 
>;BR IF YES 

>GET THE HAS DATA 

>ASL DELIVERED THE WRONG RESULT 



j j ****** ************************** ******************** *********** 

j j 11***222* ******S ****** *i*X****tS***ii *1******* 

TST333: 



***************** 



2$: 



Hi 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
275 

ROL 

BMI 

BEQ 
BVC 
BCS 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



}333,R0 
}fi§ofo # R2 



<R2) 



4$ 
1 

R4,fR2) 
TST334 

|R2),R3 



; CALL THE SCOPE LOOP UTILITY 
;LOAD RO WITH TEST NUMBER 



2) 



i {2525V 



INSTRUCTION WORD 
!525 



5$: 

• • ***************** 

;*TEST 334 ROL DM1 TEST - N:C = 0101 

j . *********************************************** 

TST334: 



;tQ»D Rl WITH TES' 
;DEST ADDR = M8UF 
; RESULT - ' " 
>CDEST3 
>CLEAR CODES 
>»:C = 1101 

;TEST THE ROL 

;n:c - 0011 ? 



JROL FAILED TO ALTER THE CODES PROPERLY 
^RESULT OK ? 
;;BR IF YES 

JGET THE WAS DATA 
>ROL DELIVERED THE WRONG RESULT 



****************************************** 
**************** 



2$! 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
265 

ROL 

BPL 
BEQ 




0<R2 
/(R2) 



;C ALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
>LOAD Rl WITH TEST INSTRUCTION WORD 
7DEST ADDR = MBUFO 



;RESULT 



(R2) 



JCDEST3 s 5^525 
;CLEAR CODES 
;n:c = 0101 

>test the rol 
;n:c = 1010 ? 



= 125253 



CQKDA- 
CQKDAC 

7018 
7019 
7020 
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Wei 

7061 



7Q6« 



2700 
5702 

m 



102001 

103001 



im mm mn 

7023 022710 001402 

M mm mm 




5312 
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15S26 
0101 
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SEQ 0131 



BVC 
BCC 



ERROR 

CMP 

BEQ 



5$ 



MOV 
ERROR 



1 

R . 
TS 

£R2),R3 

• . *************************** 

;*TEST 335 ROL DM1 TEST 

j.**** **************** ******* 

T5T335: 

SCOPE 
MOV 
MOV 
MOV 
CLR 
CLR 
CCC 
SEV 



>ROL FAILED TO ALTER THE CODES PROPERLY 
;RESULT OK ? 
;>BR IF YES 

JGET THE WAS DATA 
;ROL DELIVERED THE WRONG RESULT 

************************************ 

***************** 



2$: 



5$: 



ROL 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 




>CALL THE SCOPE LOOP UTILITY 
;>LOAD RO WITH TEST NUMBER 
>LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFQ 

>,mm 5 oo B oo5o o8ooo ° 

>TEST THE ROL 
>N:C = 0100 ? 



• . *************************** 

;*TEST 336 ADC DM1 TEST 

j. *************************** 

T5T336: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MQV 

ffi 

ADC 

BPL 
BEQ 
BVC 
BCC 



*336,R0 

T " ,R1 



>ROL FAILED TO ALTER THE CODES PROPERLY 
^RESULT OK ? 
;>BR IF YES 

/GET THE WAS DATA 

;ROL DELIVERED THE WRONG RESULT 

************************************ 

************************ 

;CALL THE SCOPE LOOP UTILITY 



Q< R 2 
000«R4 
77,lR2] 



JILOAD RO WITH TEST NUMBER 

;L0AD Rl WI"" 

;DEST ADDR 



(R2) 
3$ 



WITH TEST INSTRUCTION WORD 
11 = MBUFO 

tffiiSH 2 180000 

mi* 

;TEST THE ADC 
;N:C = 1010 ? 
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T336 ADC DM1 TEST - M :C = 0101 



SEQ 01. 



7104 
7105 
7106 



7128 
7129 



023034 
023036 
023040 

023042 
023044 



023156 
023160 
023162 
023164 



104001 
020412 
001402 

011203 
104001 




023122 
023122 
023124 
023130 
023134 
023140 
023144 
023150 
023152 



023154 005512 



104001 
020412 
001402 

011203 
104001 



000004 
012700 
013701 
012702 
012704 
012712 
000257 
000272 



100003 
001402 
102401 
103001 



000340 
023154 
063312 
177777 
177777 



ERROR 
CMP 

BEQ 

MOV 

ERROR 



p2),R3 



JADC FAILED TO ALTER THE CODES PROPERLY 
/RESULT OK ? 
;;BR IF YES 

J GET THE WAS DATA 

;ADC DELIVERED THE WRONG RESULT 



*************************************************************** 

TEST 337 ADC DM1 TEST - N:C = 1011 



• • ********** ••***«*•*•*****• **************** ************** ******* 

TST337: 





SCOPE 
MOV 
MilV 
MOV 

CLH 

vflV 
CCC 
?7 3 


|337,R0 

|MRUF0,R2 
84 

#-1 , ( ) 


;C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 

JDEST »BDP = MBUFO 

;KF:r<»LT s / p - ocoooo 

;CDFST 1 - 177777 
JCLEAK C'VutZ 
;n :c - i f j 1 1 


iS: 


IDC 


(.12) 


;TEST THE ADC 




HMI 

BNK 
BVS 

BCS 


3| 
■i) 
45 


>n:c = oioi ? 




klRROR 
CMP 

BSQ 


R4,(P2) 
TST34C 


jadc failed to alter the codes properly 
;result ok ? 

;? BP IF YES 


55: 


MOV 
ERROR 


jH2),K3 


;GET THE WAS DATA 

>ADC DELIVERED THE WRONG RESULT 


>*TEST 340 ADC DM1 TEST - N:C = 1010 

• • ************************************************************** • 

TST340: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #340, RO ;;LOAD RO WITH TEST NUMBER 

MOV 3#2$,R1 jLOAD Rl WITH TEST INSTRUCTION WORD 

MOV |mBUF0,R2 ;DEST ADDR = MBUFO 

MOV I-1,R4 JRESULT S / B = 177777 

MOV f-l,<R2) ;CDEST3 = 177777 

CCC JCLEAR CODES 

272 >n:c = 1010 


2$: 


ADC 


(R2) 


;test THE ADC 



023166 104001 



3$: 



BPL 
BEQ 
BVS 
8CC 

ERROR 



;n:c = looo ? 



;ADC FAILED TO ALTER THE CODES PROPERLY 
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T340 ADC DM1 TEST - N:C = 1010 



SEQ 0133 



7137 



7154 
7155 
7156 



16$ 



ft 



7184 
7185 



23172 



Mm 



3316 



020412 
001402 



011203 
104001 



000004 
012700 

up* 

005004 



000257 

8oor~ 



73 

023230 005612 

023232 100403 

023234 001002 

023236 102401 

023240 103001 

023242 104001 

023244 020412 

023246 001402 

023250 011203 

023252 104001 



023254 000004 

023256 012700 

023262 013701 

023266 012702 

023272 012704 

023276 012712 

023302 000257 

023304 000265 

023306 005612 



100403 
001402 
102001 
103001 

104001 
020412 
001402 



000341 

mm 



012712 000001 



4$: 



CMP 
BEQ 



MOV 
ERROR 



TS 



[R2),R3 



;result ok ? 
;;br if yes 

;get the was data 
;adc delivered the wrong result 



!i$: 

- . ************************ **************************** ********** * 

>*TEST 341 SBC DM1 TEST - N:C = 1011 

• • ************** ******** **•***•*•*•* ********************** ******* 

TST341: 

;call the scope loop utility 
jjload ro with test number 
/Load ri with test instruction word 
;dest addr = mbufo 
;result s / b = 000000 

;CDEST3 = +1 
/CLEAR CODES 
;N:C = 1011 



SCOPE 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 

273 




2$: 
5$: 

J^TEST 342. 
T§T342: 



SBC 

BMI 
BNE 
BVS 
BCC 

ERROR 
CMP 
BEQ 

MOV 
ERROR 



»$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
265 

SBC 

BMI 

BEQ 
BVC 
BCC 

ERROR 

CMP 

BEQ 



(R2) 

3$ 
3| 
35 
4$ 



R4,(R2) 
TST342 

(R2)/R3 



#342, RO 
ft#2$,Rl 
fMBUr 0#R2 
#077777, R4 
#100000, (R2) 



(R2) 

3S 

35 
3$ 
45 



R4,(K2) 
TST343 



;TEST THE SBC 
;N:C = 0100 ? 



;sbc failed to alter the codes properly 
;result ok ? 
;;br if yes 

/get the was data 

?sbc delivered the wrong result 



;c all the scope loop utility 

;;load ro with test number 

/Load ri with test instruction word 

;dest addr = mbufo 

jresult s / b = 077777 

;CDEST3 = 100000 
/CLEAR CODES 
;N:c = 0101 

JTEST THE SBC 

;n:c = 0010 ? 



;SBC FAILED TO ALTER THE CODES PROPERLY 
;RESULT OK ? 
;;br IF YES 



-c ron-r basic logic tests 
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mm n\m 
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T342 SBC DM1 TEST - M:C x 0101 



SEQ 0134 



MOV (R2)/R3 
5$: ERROR 1 

.»****************************** 

****** ***» 



2$: 



5$: 




343, R0 



;get the has data 

>sbc delivered the wrong result 

********************** ••••*•***•* 

**•***•••••••••••**•*••• 

THE SCOPE LOOP UTILITY 
"0 .MIJH^T||T^NyMBER 




Rl WITH TES 
ADDR = b MBUJ0 



NSTRUCTION WORD 



p2)/R3 



• . ••**•• ******** ******** ******** 

;*TEST 344 SBC DM1 TEST - M 

5 . ****************************** 

T5T344: 



tC = 1110 



JTEST THE SBC 
;N:C a 0000 ? 



>S8C FAILED TO ALTER THE COOES PROPERLY 
>RESULT OK ? 
;;BR IF YES 

;GET THE WAS DATA 

;SBC DELIVERED THE WRONG RESULT 

a******************************** 

:C = 0111 

********************************* 



2$: 



023460 011203 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 
267 

SBC 

BPL 
BEQ 
BVS 
BCS 

ERROR 

CMP 

BEQ 

MOV 



3 44,R0 

tlaf oJr2 



(R2) 

n 

4$ 
1 

R4 £ <R2) 
TST3 45 

(R2)/R3 



/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR x MBUFQ 

; RESULT S / B = 177777 

;C0EST3 = 000000 

;CLEAR CQDES 

;n:c = 0111 
jtest the sbc 
;n:c s looi ? 



;SBC FAILED TO ALTER THE CODES PROPERLY 
;RESULT OK ? 
;;BR IF YES 

>GET THE WAS DATA 
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m 

7244 

m 
m 



M 

7256 

W 1 



If 



023462 104001 



\m 

\W 
kh 

023512 
023514 
I 3 5 

023524 

mm 

023532 



000004 

012703 177402 

mm 

105403 

100003 
001402 

mm 

104002 

020403 
001401 

104002 



000004 
.3536 012700 

mil mill 

53552 - *" ¥ - 



|j 023562 105403 

|| 023574 104002 

l\ mm mm 

94 023602 104002 
95 




MACY11 30A(10 
T344 SBC D 

5$: ERROR 

U *********** 
, TEST 345 
j. *********** 

TST345: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

NEGB 

BPL 
BEQ 
BVS 
BCS 

ERROR 

CMP 
BEQ 

ERROR 
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Ml TEST - N:C = 0111 

1 >SBC DELIVERED THE WRONG RESULT 

**************************************************** 

NEGB - MODE TEST - N|C = 0110 

*************** J***^*^* ******************** ********* 



SEQ 0135 



2$: 



3S: 
4$: 

5$: 



1776 
77402 



R3 
3S 

2 

R4,R3 
TST346 

2 



,R3 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

}lQAO Rl WITH TEST INSTRUCTION WORD 

;RESULT S 7 B - 376 (LO BYTE) 

;CDEST3 r 177402 

;CLEAR FLAGS 

;n:c - 0110 

; TEST THE NEG8 

;n:C = 1001 

;NEGB FAILED TO ALTER CODES PROPERLY 

;C0RRECT RESULT ? 
?;BR IF YES 



• . *********** 

>*TEST 346 
• • *********** 

TST346: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

SB 



;NEGB DELIVERED THE WRONG RESULT 
**************************************************** 

NEGB - MODE TEST - N:C = 0011 
**************************************************** 



|346 # R0 



;CALL THE SCOPE LOOP UTILITY 
" LOAD RO WITH TEST NUMBER 
OAD Rl WITH TEST INSTRUCTION WORD 
ESULJ S / 1 = 000 (LO BYTE) 



400 



2$: 



3$: 
4$: 

5$: 



NEGB 

BMI 
BNE 

m 

ERROR 

CMP 
BEQ 



R3 
3$ 



R4,R3„ 
TST347 



>CDES¥3 = 17? 
JCLEAR FLAGS 
;n:c = 0011 

JTEST THE NEGB 

;N:c = 0100 



>NEGB FAILED TO ALTER CODES PROPERLY 

>CORRECT RESULT ? 
;>BR IF YES 

JNEGB DELIVERED THE WRONG RESULT 



•<•*•*••***** 

;*TEST 347 



**************************************************** 

NEGB - MODE TEST - N:C = 1101 
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15:26 PAGE 137 
N:C = 1101 



7298 
7299 
7300 

in 

7305 

?!W 

7308 
7309 
7310 
7311 

mi 

7314 

ml 

7317 
7318 
7319 

m 

7322 

P 

7325 
7326 
7327 
7328 
7329 
7330 

m 

7333 
7334 

mi 

7337 

7340 
7341 

7§8 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 



023604 
023604 
023606 
923612 
"23616 
023622 
023626 
023630 

023632 

023634 
023636 
023640 
023642 

023644 

023646 
023650 



023654 
023654 
023 656 
023662 
023666 
023672 

mm 

023702 

023704 
023706 

023714 

023716 
023720 



023724 
023724 
023726 



000004 

811ft! 

012704 
012703 
000257 
000275 

105403 

100003 

001 ~~ 



)1402 
102001 
103401 

104002 

020403 
001401 



023652 104002 



000004 
012700 
013701 
012704 

mm 

000273 

105003 

100403 
001002 

mm 

104002 

020403 
001401 



023722 104002 



000347 
023632 

177*88 



000350 
023702 
177400 
177777 



• j ********************** ******** ********************** *********** 

TST347: 

>C ALL THE SCOPE LOOP UTILITY 
>;LOAD R0 KITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
-R4 ;RESULT S / B = 200 (LO BYTE) 

R3 >CDEST3 = 177600 

7CLEAR FLAGS 
;N:C = 1101 

JTEST THE NEGB 

;n:c = 1011 



;negb failed to alter codes PROPERLY 

>CORRECT RESULT ? 
>;BR IF YES 

JNEGB DELIVERED THE WRONG RESULT 
************** ************** *********** 

E TEST - N:C = 1011 

****** ************** ************ ******* 

>CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 000 (LO BYTE) 
;CDEST3 = 177777 





SCOPE 

MOV 

MOV 

MOV 

MOV 

CCC 

275 


#347, RO 

ta R oo, 

1177600; 


2$: 


NEGB 


R3 




BPL 
BEQ 
BVC 
BCS 


3$ 
3S 
35 
4$ 


3$: 


ERROR 


2 


4$: 


CMP 

BEQ 


R4,R3 
TST350 


5$: 


ERROR 


2 



• • *********** ************* 

POTEST 350 CLRB - MOD 

••*********•**••*•****•*•• 

TST350: 





SCOPE 




MOV 




MOV 




MOV 




MOV 




CCC 




273 


2$: 


CLRB 




BMI 




BNE 




BVS 




BCC 


3$: 


ERROR 


4$: 


CMP 


BEQ 


5$: 


ERROR 



#350, RO 

if^^0O,R4 
#-l,R3 



R4,R3 
TST351 



000004 
012700 



000351 



****** ****************** 

k TEST 351 CLRB - MOD 

■;• ********************** ~ " 

TST351: 

SCOPE 

MOV #351, RO 



;CLEAR FLAGS 
;n:c = 1011 

>TEST THE CLRB 

;n:c = 0100 ? 



;CLRB FAILED TO SET CODES PROPERLY 

;RESULT CORRECT ? 
;;BR IF YES 

;CLRB DELIVERED THE WRONG RESULT 
**************************** *********** 

E TEST - N:C = 0100 

********** ***************************** 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
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7354 
7355 
7356 
7357 

Ml 
7360 
7361 

mi 

7364 
7365 

n& 

7368 

m 

7371 
7372 

Wl\ 
7375 
7376 

Wl 

7379 
7380 

m\ 

7383 

7386 
7387 
7388 
7389 

mi 

mi 

7394 
7395 
7396 
7397 



7400 
7401 
7402 
7403 

Utt 

7406 
7407 
7408 
7409 



mm 

023742 
°23246 
023750 



mm 

023760 
023762 

023764 

oll^o* 

023772 



023^4 
023776 
024002 
24006 

mi 

24022 
240< 



o: 

02 , 
024030 



024034 
024040 



024044 
024046 



7398 024050 

7399 024052 



024054 
024054 

mm 



mm 

012703 
000257 
000264 



023752 105003 



100403 
001002 
102401 
103001 

104002 

mm 

104002 



000004 
012700 
013701 
012702 
012704 

81 oloi 

012715 
000257 



024032 105023 



022703 
001401 



024042 104005 



020415 
001402 



011503 
104001 



000004 
012700 
013701 
012702 
012704 



023752 
177400 
177777 



000352 

mm 

000377 
063312 

177777 



063314 



000353 
024112 
063 313 
000377 



T351 



3$: 
4$: 



CLRB - MODE TEST - N:C = 



PAGE 138 
0100 



MOV 
MOV 
MOV 
CCC 

SEZ 

CLRB 

BMI 
BNE 
BVS 
BCC 



CMP 

BEQ 



f^^00,R4 
-1,R3 



R4,R3 
TST352 



5$: 



■ *••*••**•***•••************•*• 



;L0AD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 000 (LCI BYTE) 
;CDEST3 = 177777 
>CLEAR FLAGS 
;N:c = 0100 

;TEST THE CLRB 

>N:C = 0100 ? 



JCLRB FAILED TO SET CODES PROPERLY 

;RESULT CORRECT ? 
;;BR IF YES 

;CLRB DELIVERED THE WRONG RESULT 
****** ******************* ******* 



;*TEST 352 CLRB TEST - DM2 - ODD ADDRESS 

• • **************************************************** 

T5T352 



C* ******** * 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MB0F0+1 
JRESULT S / B = 377 
;POINT R5 TO CHECK RESULT 
;R3 CONTAINS DEST ADDR 
;CDEST1 = 177777 
J SCOPE SYNC 

;TEST THE CLRB 

>DID DEST REG GET INCREMENTED ? 
;BR IF YES 

;clrb failed to update d est reg 

jcorrect result ? 
;;br if yes 

jget the was data 
;clrb delivered wrong result 

• t \ *************************************************************** 

;*TEST 353 CLRB TEST - DM1 - ODD ADDRESS 

••**••*•******•*•*•*•*••** ****************************** ********* 

TST353: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #353, RO ;;LOAD RO WITH TEST NUMBER 

mov S#2S,Ri /Load ri with test instruction word 

MOV fHBUF0+l,R2 ;DEST ADDR = MBUFO+1 

MOV #377, R4 ;RESULT S / B = 377 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CLRB 

CMP 
BEQ 



CMP 
BEQ 



MOV 
ERROR 



#352,R0 

8#2S,R1 

|MBUF0+1,R2 

|377,R4 

#MBUF0,R5 

R2,R3 

#-l,(R5) 

(R3) + 

|MBUF0+2,R3 



R4,(R5) 
TST353 

(R5),R3 
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IC TESTS 
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74' 



His 

1446 



nit 



mm 



[415 024112 



324160 
524164 



24170 
14172 



L76 



024232 



81*285 

mm 

105013 

mm 

011503 
104001 



3701 
2702 



000257 
105023 

86^401 
104005 

mm 

011203 
104001 



000004 

27C 



ooo; 

105013 

mm 



063312 

mm 



000354 
024156 
063312 
177400 

mm 



063313 



mm 

mm 
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T353 CLRB TEST - DM1 - ODD ADDRESS 



SEQ 0138 



2$: 
3$: 

U 



MOV 
MOV 
MOV 
CCC 

CLRB 

CMP 
BEQ 

MOV 
ERROR 



#-l,<R5) 
(R3) 

(R5)/R3 



JOLT 



;R§ con 

{CDEST3 
; SCOPE SYNC 

>TEST THE CLRB 

;C0RRECT RESULT ? 
{{BR IF YES 

JGET THE WAS DATA 

{CLRB DELIVERED WRONG RESULT 



fs 



*************************************************************** 
******************** ************ ********* 



T354: 



*»***»**< 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 



$MBUfo,R2 
1177400, R4 

Pl??R2) 



D R0 WITH TEST NUMBER 

WITH TEST INSTRUCTION WORD 



2$: 



3$: 
4$: 



CLRB 



CMP 
BEQ 



CMP 

BEQ 



MOV 

ERROR 



<R3)* 



jJMBUF0+l,R3 



R4,(R2) 
TST355 

(R2),R3 



/CALL THE. SCOPE LOOP UTILITY 

JJLOAD R 

JLQAD Rl 

{DEST ADDR = HBUFQ 
{RESULT S / B = 177400 
1R3 CONTAINS DEST ADDR 
KDEST3 = 177777 
;SCOPE SVNC 

;TEST THE CLRB 

{DID DEST REG GET INCREMENTED ? 
;br IF YES 

{CLRB FAILED TO UPDATE DEST REG 

{CORRECT RESULT ? 
;;BR IF YES 

>GET THE WAS DATA 
/CLRB DELIVERED WRONG RESULT 



5S: 

. .**************** *********************************************** 

;*TEST 355 CLRB TEST - DM1 - EVEN ADDRESS 

^. ****************************************************** ********* 

TST355: 

{CALL THE SCOPE LOOP UTILITY 

{{LOAD RO WITH TEST NUMBER 
{LOAD Rl WITH TEST INSTRUCTION WORD 
{DEST ADDR = HBUFO 
* " " ' ~ ~ 177400 
TR 



2$i 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CLRB 

CMP 
BEQ 



{355, RO 
177400, R4 



R2,R3 
»-!,( 



R2) 



(R3) 
TsfJ! 



{RESULT S / B = 17740C 
;R3 CONTAINS DEST ADDf 
;CDEST3 - 177777 
{SCOPE SYNC 

;TEST THE CLRB 

{CORRECT RESULT ? 
;;BR IF YES 
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T355 CLRB TEST - DM1 - EVEN ADDRESS 



SEQ 0139 



8&& 

024244 

mitt 
mm 
mil 
mm 

024300 
024302 



024; 



024374 
024402 



011203 
104001 



mm 

am 

012705 

01 7 1 
0002^7 

105423 

mm 

104005 

mm 



000004 

mm 

g32737 

oo&ooi 

012702 
1704 

i 
ill* 

105413 

^14^1 
011503 



000356 
024302 

000777 
063312 

177777 



063314 



mm 

000200 



063313 
000777 
063312 

177777 



063234 



;GET THE WAS DATA 

;CLRB DELIVERED WRONG RESULT 



MOV (R2),R3 
3$: ERROR 1 

,*************************************************************** 



• • **************** ******** ********»***W»*»W*»»»**» 

>*TEST 356 NEGB TEST - DM2 - ODD ADDRESS _ 

..************************************************ 

TST356: 



*************** 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

NEGR 

CMP 
BEQ 



CMP 
BEQ 



MOV 
ERROR 



!f356,R0 
S#2$,R1 
|MBgF0+l,R2 
|777,R4 
|MBUF0,R5 



R2,R3 



R5) 



(R3)* 



|MBUF0*2,R3 



Ps&¥ 

p5),R3 



{LOAD Rl WITH TEST INSTRUCTION WORD 

{DEST ADDR = MBUF0*1 

{RESULT S / B = 777 

{POINT R5 TO CHECK RESULT 

;R3 CONTAINS DEST ADDR 

{CDEST3 = 177777 

{SCOPE SYNC 

{TEST THE NEGB 

>DID DEST REG GET INCREMENTED ? 
;br IF YES 

>NEGB FAILED TO UPDATE DEST REG 

{CORRECT RESULT ? 
{{BR IF YES 

;GET THE WAS DATA 

{NEGB DELIVERED WRONG RESULT 



j . *************************************************************** 

;*TEST 357 NEGB TEST - DM1 - ODD ADDRESS 

J.*************************************************************** 

TST357: 



SCOPE 
MOV 
MOV 

.SBTTL USER CONTl 
BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 



357, RO 
#2S,R1 



• +4 



J CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
{LOAD Rl WITH TEST INSTRUCTION WORD 
BREAKPOINT — BIT7 



@#BPTLOC 



2S! 



NEGB 



CMP 
BEQ 



MOV 



#MBUF0+1,R2 
|777,R4 
|MBUF0,R5 
R2/R3 
#-l,(R5) 

(R3) 

R4,(R5) 
TST360 

(R5),R3 



{BREAKPOINT HALT SET ?? 
{BR IF NOT 

{BREAK - DEPRESS CONTINUE TO RESTART 
{DEST ADDR = MBUFO+1 
{RESULT S / B = 777 
{POINT R5 TO CHECK RESULT 



{R3 CONTAINS DEST ADDR 
JCDEST3 = 177777 
{SCOPE SYNC 

{TEST THE NEGB 

{CORRECT RESULT ? 
J JBR IF YES 

{GET THE WAS DATA 
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7523 

7524 

7525 

752f 

757 

151 

751, 

m\ 

75? 
753 

nil 

7531 

mi 

7§1 

2542 

7543 

7544 

7545 

754< 

754' 

7548 

7549 

7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

m\ 

7563 
7564 
7565 
7566 
7567 
7568 
2569 
i520 
7571 
7572 

m 

7576 



024404 104001 



024406 

mm 

024414 
624420 
024424 
024430 
024432 
024436 

024440 

024442 
024446 

024450 

024452 
024454 

024456 
024460 



024462 
024462 
024464 
024470 
024474 
024500 
024504 
024506 
024512 



024516 
024520 



024 
024 



(124526 

2 4* 13 8 
024534 



000004 
012700 
013701 

mm 

010203 
012712 
000257 

105423 

mm 

,104005 

020412 
001402 

mm 



000004 
012700 
013701 
012702 
012704 
010203 
012712 
000257 



024514 105413 



020412 
001402 



011203 
104001 



000004 
012700 
013701 



000360 
024440 

mil 

mm 



063313 



000361 
024514 
063312 
177401 

mm 
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USER CONTROLLED BREAKPOINT — BIT7 

3$: ERROR 1 >NEGB DELIVERED WRONG RESULT 

• . *************************************************************** 

;*TEST 360 NEGB TEST - DM2 - EVEN ADDRESS ^ „ 

J « *****************************>********************************* 

TST360: 

/CALL THE SCOPE LOOP UTILITY 



2$i 



3$: 
4$: 



SCOPE 
MOV 
MOV 
NOV 
MOV 
MOV 
MOV 
CCC 

NEGB 

CMP 
BEQ 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



62, R3 
#-l,(R2) 



|MBUF0*1,R3 



R4,(R2) 
TST361 

JR2),R3 



;;L0AD R0 WITH TEST NUMBER 
} LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFQ 
JRESULT S / B = 177401 
)R3 CONTAINS DEST ADDR 
;CDEST] = 177777 
; SCOPE SYNC 

>TEST THE NEGB 

;DID DEST REG GET INCREMENTED ? 
;BR IF YES 

JNEGB FAILED TO UPDATE DEST REG 

JCORRECT RESULT ? 
>>BR IF YES 

/GET THE WAS DATA 
;NEGB DELIVERED WRONG RESULT 



5$: 

S^TEST 361 NEGB TEST - DM1 - EVEN ADDRESS 

. . ************************************************ 

TST361 



a*************************************************** *********** 

**** *********** 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

NEGB 

CMP 
BEQ 

MOV 
ERROR 



#361, R0 

Imbofo,r2 

1177401, R4 

R2,R3 

#-l,(R2) 

(R3) 

R4,(R2) 
TST362 

<R2),R3 



;C ALL THE SCOPE LOOP UTILITY 
>}LOAD R0 WITH TEST NUMBER 
?LOAD Rl WITH TEST INSTRUCTION WORD 
?DEST ADDR = MB0F0 
;RESULT S / B = 177401 
;R3 CONTAINS DEST ADDR 
JCDEST3 = 177777 

)scope sync 

;test the negb 

>correct result ? 
;;br if yes 

;get the was data 

; negb delivered wrong result 

t***»* *********** 



000362 
024556 



**************** ********** ******** **************< 

;*TEST 362 ADD TEST - SM0,DM0 - N:C = 1010 

••****•* ************************* ******************************** 

TST362: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #362, RO ;;LOAD RO WITH TEST NUMBER 

MOV @*2$,R1 /LOAD Rl WITH TEST INSTRUCTION WORD 
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mi 

7579 
7580 
7581 
7582 
7583 



7587 
7588 
7589 
7590 
7591 

P 
7594 
7595 

P 

7598 
7599 
7600 

m\ 

7603 
7604 
7605 
7606 
7607 
7608 
7609 
7610 
7611 
7612 
7613 
7614 

hit 

7617 

III! 



76; 
76: 
76: 
76: 
76: 



7631 
7632 



024540 
024542 
024546 
024552 
024554 



457| 



02457 
024576 



024600 

mm 

024606 
024612 
024616 
024622 
024626 
024630 



024634 
024636 
024640 
024642 



024646 
024650 



0.24654 
024654 



mi mm 



024666 
024672 



005004 
012705 
012703 
000257 
000272 



024556 060503 



024560 
024562 
024564 
024566 



So?ooi 

102401 
103401 



024570 104002 



mm 

104002 



000004 
012700 
013701 
012704 
012705 
012703 
000257 
000265 



024632 060503 



100003 
001402 
102001 
103001 



024644 104002 



020403 
001401 



024652 104002 



000004 

012704 
012705 



177777 
000001 



000363 
024632 
100006 
077777 
000007 



024702 
063322 
063276 



MACY11 30A(10 
T362 ADD T 

CLR 
MOV 
MOV 
CCC 
272 



2$: 



3$: 
4$: 

5$: 



ADD 

8MI 
BNE 
BVS 
BCS 



CMP 
BEQ 



ERROR 



52) 15-NQV-78 
EST - SM0,DM0 - 

R4 

#-l,R5 
#+l,R3 



R5,R3 



R4,R3 
TST363 



15:26 PAGE 142 
N:C = 1010 

;RESULT S / B = 000000 
;SRC OPR = 177777 
;CDEST3 = +1 
/CLEAR FLAGS 
;n:c = 1010 

;TEST THE ADD 

jn:c = 0101 



J ADD FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
;;BR IF YES 

;ADD DELIVERED THE WRONG RESULT 



• . *********** 

J*TEST 363 
• .*********** 

TST363: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

265 



*•**••*•******••****• ******************** *********** 

ADD TEST - SM0,DM0 - N:C = 0101 
******** ********************************* *********** 



#363, RO 

|P§606, 
#77777,R 
#7,R3 



2$: 



3$: 
4$: 



5$: 



ADD 

BPL 
BEQ 
BVC 
BCC 



CMP 

BEQ 



ERROR 



R5,R3 

3$ 
3$ 
3$ 
4$ 



R4,R3 
TST364 



• • *********** 

;*T£ST 364 
• • *********** 

TST364: 

SCOPE 

MOV 

MOV 

MOV 

MOV 



*********** 



{364, RO 
412$, Rl 
fuWTA,R4 
MTA,R5 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

R4 ;RESULT S / B = 100006 

5 iSRC OPR = 77777 

;CDEST3 = 7 
/CLEAR FLAGS 
>n:c = 0101 

;test the add 

;n:c = ioio 



;ADD FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
>;BR IF YES 

/ADD DELIVERED THE WRONG RESULT 
***************************************** 
DM0 TEST 

******** ****** ************** ************* 

}C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = fDWTA 
;SCURCE ADDR = ATA 
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MACY11 30A(1052) 15-N0V-78 
T364 ADD SM1,DM0 TEST 



1*1 



7||| 

7658 

IS 



767t 



?67J 



7686 



024702 
024710 

mi 

024720 



24734 
M740 
1744 
4746 

024750 

mm 

024756 

mm 

024766 



mm 

061503 

mm 

104002 

nun 

104005 



000004 

-mm 
mm 

°Q5003 
000257 



062503 

020403 
001401 

104002 

mm 

104005 



025022 063503 



063276 



000365 
024750 

mm 



063300 




2$ I 

3S: 
4$: 



CLR 
CCC 

ADD 

CMP 

BEQ 

ERROR 

CMP 
BEQ 

ERROR 



R3 



(R5)/R3 

R4/R3 
4$ 



#ATA.R5 
fST365 



5$ 

• ^ ************************** 

TST365: 

1365, ro 
DHTA f R4 
ATA, R5 
3 

<R5)*,R3 

R4/R3 
4$ 





SCOPE 




MOV 




MO? 




MOV 




MOV 




CLR 




CCC 


2$: 


ADD 




CMP 




BEQ 


3$: 


ERROR 


4$s 


CMP 


BEQ 


5$: 


ERROR 



fATA+2,R5 
TST366 



• • a************************** 

;*TEST 366 ADD SM3.DMQ 1 

; . ********** ********* *******< 

TST366: 



2S! 



025024 
025030 



020437 
001401 



063312 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 
BEQ 



!366,R0 
ATA+IO/RS 
h 4/9#MB0F0 

e(R5)*/R3 

R4,§#MBUF0 
4$ 
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JCDEST3 = 
; SCOPE SYNC 

>TEST THE ADD - SM1,DH0 

;RESULT = #DWTA? 
>BR IF YES 

; ADD DELIVERED WRONG RESULT 

;DID ADD CHANGE REG. 
;;BR IF NOT 

;REG GOT MODIFIED 
************************************* 

IS ************************** ********* 

;C ALL THE SCOPE LOOP UTILITY 

>;LOAD RO WITH TEST NUMBER 

jLOAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = jJDWTA 

;SOURCE ADbR = ATA 

JCDEST1 = 

;SCOPE SYNC 

JTEST THE ADD - SM2,DM0 

JRESULT = #DWTA 
;BR IF YES 

} ADD DELIVERED WRONG RESULT 

;DID ADD AUTO INCREMENT SOURCE REG? 
j;BR IF YES 

; ADD FAILED TO UPDATE SOURCE REG. 
k************ ********************* 

r 

*************** ******** *********** 

>CALL THE SCOPE LOOP UTILITY 
;?LOAD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = #DWTA 
?R5 POINTS TO SOURCE ADDR 
;CSOURCE3 = #DWT A 
JCDEST3 = 
;SCOPE SYNC 

JTEST THE ADD - SM3,DM0 

/RESULT = #DWTA? 
J BR IF YES 



SEQ 0142 



CQKDA-C KD11-K B 
CQKDAC.P11 07 



025032 



025034 
025040 




ASIC LOGIC TESTS 
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104002 

27g5 063310 

104005 
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T366 ADD SM3/DM0 TEST 



SEQ 0143 



mm 



2705 063276 
1401 



20437 063312 
01401 



104002 



22705 063306 
01401 



3$: 
4$: 



ERROR 



CMP 
BEQ 



|ATA+12,R5 
tST367 



5$: ERROR 

. . *********** 

>*TEST 367 
. . *********** 

TST367: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

ADD 



; ADD DELIVERED WRONG RESULT 

;DID ADD AUTO INCREMENT SOURCE REG? 

;;BR IF YES 

;ADD FAILED TO UPDATE SOURCE REG. 



it************************************************** 



CMP 

BEQ 



CMP 

BEQ 



2$: 

3$: 
45: 

5$: ERROR 
• • *********** 

>*TEST 370 
j .** ********* 

TST370: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

ADD 

CMP 
BEQ 



1367, RO 
lATA+2,R5 



■(R5) / R3 



R4,R3 
4$ 



|ATA#R5 
fST370 



***************** 

ADD SM5 r DM0 TE 
***************** 



025164 104005 



2$: 



3$: 
4$: 

5$: 



CMP 
BEQ 



ERROR 



#370, RO 

fATA+12, RE 
ft4,g#MBOFS 
R3 



@-<R5),R3 



R4,e#MBUF0 
4S 



#ATA+10/R5 
TST371 



>CALL THE SCOPE LOOP UTILITY 

>>LOAD RO WITH TEST NUM8ER 

;L0AD Rl WITH TEST INSTRUCTION WORD 

;RESULT S ? B = #DWTA 

;SOORCE ADDR = ATA 

>CDEST3 = 

JSCOPE SYNC 

;TEST THE ADD - SM4,DM0 

;RESULT = #DWTA? 
;BR IF YES 

; ADD DELIVERED WRONG RESULT 

JDID SOURCE REG GET DECREMENTED? 
;?BR IF YES 

; ADD FAILED TO UPDATE SOURCE REG 
*********************************** 

?T 

*********************************** 

;CALL THE SCOPE LOOP UTILITY 

;}LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST^|NSTRUCTION WORD 

fiPphiNls'TC soIIrce A ador 

;CSOURCE3 = #DWT A 
JCDEST3 = 
;SCOPE SYNC 

;TEST THE ADD - SM5,DM0 

;RESULT - #DWTA? 
;BR IF YES 

;ADD DELIVERED WRONG RESULT 



i J BR 



ADD DECREMENT SOURCE REG? 
IF YES 



; ADD FAILED TO UPDATE SOURCE REG. 
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83 



7745 
7746 
7747 

If 

7751 
7752 
7753 
7754 
7755 
7756 
7757 
7758 

Wei 

7761 
7762 
7763 
7764 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7772 
7773 
7774 
7775 
7776 
7777 

m 

7780 
7781 



7784 
7785 

778^ 
7788 
7789 

m 

7792 
7793 

W4 

7796 
7797 
7798 
7799 
7800 





8__ 

025 



025220 
025222 



025226 
025226 
025230 
025234 
025240 
025244 
025250 
025254 
025256 



025264 
025266 



025272 
025272 
025274 
025300 
025304 
025310 



5314 
5320 
5322 



013701 

mm 

005003 
000257 



020403 
001401 



025224 104002 



000004 

mm 

012704 
012705 
010437 
005003 
000257 



020403 
001401 



83 025270 104002 



000004 
012700 
013701 
012702 
012704 
012705 
005012 
000257 



025324 061512 
025326 020412 



000371 
025214 



025210 
025212 



025214 066503 000010 



000372 
025260 
063322 
063276 
063312 



025260 067503 000010 



000373 
025324 
063312 
063322 
063276 
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T370 ADD SM5,DM0 TEST 



SEQ 0144 



*************************************************************** 

***************************** 



J*TEST 371 ADD SM6,DM0 TEST 

• • ********************************** 

T5T371: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 

BEQ 

ERROR 



I371/R0 
HUB" 
3 

10(R5),R3 

R4/R3 
TST372 



J CALL THE SCOPE LOOP UTILITY 
JjLOAD RO WITH TEST NUMBER 
jLOAD Rl WITH TEST INSTRUCTION WORD 



;LOAD Rl Ml 

JCDEST3 = 
JSCOPE SYNC 



B = MBUFQ 
E ADDR = ATA 



/TEST THE ADD - SM6,DM0 



JRESULT =MBUF0? 
;;BR IF YES 



/ADD DELIVERED WRONG RESULT 



2$: 



3$: 

. . ********* *************** ****************** ************** ******* 

J*TEST 372 ADD SM7,DMQ TEST 

• • *************************************************************** 

TST372: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #372, RO JJLOAD RO WITH TEST NUMBER 

MOV i#2S<Rl /LOAD Rl WITH TEST INSTRUCTION WORD 

MOV l0WTA / R4 ;RESULT S / B = JDWTA 

MOV (ATA,K5 ;BASE SOURCE ADDR = ATA 

MOV R4,e#MBUF0 JCSOURCE3 = #DWTA 

CLR R3 JCDEST3 = 

CCC JSCOPE SYNC 



2$: 



ADD 



CMP 

BEQ 



ERROR 



glO(R5),R3 

R4.R3 
TST373 



/TEST THE ADD - SM7,DM0 



JRESULT = #DWTA? 
JJBR IF YES 



/ADD DELIVERED WRONG RESULT 



3$: 

• • ************************************************************** * 

J*TEST 373 ADD SM1«DM1 TEST 

. . ************************************ ******** ************** ***** 

TST373: 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 



2$; 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 



£373, RO 

iMB&'f 0,R2 
|DWTA,R4 
|ATA,R5 

CR2) 



(R5),(R2) 
R4,(R2) 



JRESULT S / B = |DWTA 
JSGURCE ADDR = ATA 
JCDEST3 = 
JSCOPE SYNC 

/TEST THE ADD - SMI, DM1 
J RESULT = #DNTA? 
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MACY11 30A(1052) 
T373 ADD SMI, 



15-NOV-78 
DM1 TEST 



7801 
7802 
7803 
7804 

mi 

mi 

7809 
7810 

?8lJ 

mi 

7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 

mi 

7825 
7826 

mi 
mi 

7831 

P 

7834 
7835 
7836 
7837 
7838 

m 

7842 

7847 
7848 
7849 
7850 
7851 
7852 
7853 
7854 



025330 001402 



025332 
025334 



025336 
025336 
025340 
025344 
025350 
025354 
025360 
025364 
025366 

025370 

025372 
025374 

025376 
025400 



025440 
025442 

025444 
025450 
025452 

025454 
025460 
025464 



011203 
104001 



000004 

mm 

012702 
012704 
012705 

062512 

020412 
001402 

011203 
104001 



000004 
012700 
013701 
012702 
012704 
012705 
010203 
005012 
000257 

025436 061523 



020412 
001406 

010337 
011203 
104001 

013703 
022703 
001401 



000374 
025370 
063312 
063322 
063276 



000375 
025436 
063312 
063322 
063276 



063316 



063316 
063314 



BEQ 



MOV 
ERROR 



3$: 

••**••***•****•* 

;*TEST 374 
..************** 

TST374: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 



TST374 
(R2),R3 



15:26 PAGE 146 
JJBR IF YES 



JGET WAS DATA 

/ADD DELIVERED WRONG RESULT 



SEQ 0145 



************************************************* 

ADD SM2/DM1 TEST 

************************************************* 



|374,R0 

I MB (ft oJr2 

lDWTA,R4 

»ATA,R5 

(R2) 



2$: 



3$: 



ADD 



CMP 
BEQ 



MOV 
ERROR 



<R5)+,(R2) 

R4,(R2) 
TST375 

JR2),R3 



/CALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

JDEST ADDR = MBUFO 

/RESULT S / B = #DWTA 

JSOURCE ADDR = ATA 

JCDEST3 = 

JSCOPE SYNC 

/TEST THE ADD - SM2,DM1 

JRESULT = (OUT A? 
JJBR IF YES 



J GET WAS DATA 

J ADD DELIVERED WRONG RESULT 



• . ****** ******** 

/"TEST 375 ruu on^, 

. . ******* *********************** ******* *************** *********** 



****************** ******************* ************ 

ADD SM1,DM2 TEST 



025466 104005 





SCOPE 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




CLR 




CCC 


2$: 


ADD 




CMP 




BEQ 




MOV 




MOV 


3$: 


ERROR 




MOV 


4$: 


CMP 


BEQ 


5$: 


ERROR 



#375, RO 

l#2|iRl 

|MB0F0,R2 

fDWTA,R4 

IATA,R5 

R2,R3 

(R2) 

<R5),(R3)» 

R4,(R2) 
4$ 

R3,B#MBUFl 
|R25,R3 

?#MBUF1,R3 
MBUF0+2,R3 
ST376 



JCALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

JDEST ADDR = MBUFO 

JRESULT S / B = JDWTA 

JSOURCE ADDR = ATA 

JCR33 = DEST ADDR 

JCDEST3 = 

/SCOPE SYNC 

/TEST THE ADD - SMI, DM2 

/RESULT = #DWT A? 
JBR IF YES 

JSAVE UPDATED DEST ADDR 
JGET WAS DATA 

J ADD DELIVERED WRONG RESULT 

/RESTORE UPDATED DEST ADDR 
JDID ADD INCREMENT DEST REG 
JJBR IF YES 

/ADD FAILED TO UPDATE DEST REG 



a************************************************************** 
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mi 

w\ 

7862 

w 

7865 
7866 

w 



>88E 
7886 



Is9^ 
7898 
7899 
7900 

tni 

m 

7906 

m 

7909 
7910 



,i47f 
25522 



000004 

mm 

ml 
§10283 

005012 
000257 



020412 
001406 



, >560 
55 



>5600 
5604 
561f 

>56i: 



0002 



soy 



025614 061533 



025616 
025620 

°2§622 
025626 
025630 

025632 
025636 
025642 



020412 
001406 



J3 
104601 



mm 



mm 
mm 

063276 



025524 062523 

mm 

mm mm 063316 

025540 104001 

mn mm mm 

02S552 001401 

025554 104005 



000377 
14 



m min mm urn 

7893 025574 015704 06332 



000004 
012700 

of — 

01-.-., — 

012705 063576 

2703 063306 



063316 



\im Sim 

01401 
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T376 ADD SM2,DM2 TEST 

T5T376: 

SCOPE 



******* 



•A******************************* 



2S: 



3$: 
4$: 
5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 
BEQ 

MOV 
MOV 
ERROR 

MOV 
CMP 
BEQ 



I376,R0 
#2S £ R1 
MBOro,R2 
DWTA/R4 
2*Jr5 

(R2) 



(R5)+/(R3)+ 



R4/(R2) 
4S 



R3<»#MBUF1 
[R2J,— 



>C ALL THE SCOPE LOOP UTILITY 
MLOAD R0 WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 

: MBUFO 

B = fDWTA 



>DEST ADDR 
(RESULT S / 



Urn 



RCE ADDR = ATA 
ADDR 



R3 



fljtMBUFl^RS 

fMBUF0«-2,R3 

TST377 



. _ - _ DEST 
/CDEST3 = 
;SCOPE SYNC 

;TEST THE ADD - SM2/DM2 

; RESULT = #DWT A 
)BR IF YES 

;SAVE UPDATED DEST ADDR 
;GET MAS DATA 

/ADD DELIVERED WRONG RESULT 

/RESTORE UPDATED DEST ADDR 
>DID ADD INCREMENT DEST REG? 
;;BR IF YES 

;ADD FAILED TO UPDATE DEST REG 



******************* ******************* ************** *********** 

;*TEST 377 ADD SMI, DM3 TEST 

• • ********* ********** ************************************* ******* 

TST377: 

;C ALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;D£ST ADDR = MBUFO 
;RESULT S / B = fDWTA 
JSOURCE ADDR = ATA 
>CR33 = ADDR OF DEST ADDR 
;CDEST3 = 
>SCOPE SYNC 



025644 104005 



2$: 

3$: 
4$: 
5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 
BEQ 

MOV 
MOV 
ERROR 

MOV 
CMP 
BEQ 



J377/R0 

iMU oJr2 

IDWTA/R4 

lATA/RS 

»ATA+10,R3 

CR2) 



(R5),g(R3)* 

R4,(R2) 
4$ 

R3,fl#MBUFl 
(R2J/R3 



JjfMBUFl/ R3 
|XtA+12;R3 
fST400 



/TEST THE ADD - SM1,DM3 

;RESULT = #DWT A? 
;BR IF YES 

;SAVE R3 
JGET WAS DATA 

; ADD DELIVERED WRONG RESULT 
;RESTORE R3 

JDID ADD INCREMENT DEST REG 
JJBR IF YRS 

JADD FAILED TO UPDATE DEST REG 



CQKDA- 
CQKDAC. 

7913 
7914 
7915 

m 

7919 



C KD11-K 
Pll 



BASIC LOGIC TESTS 
07-NOV-78 14:09 



7919 025650 0127 

mi mm mi 



IP 

7926 

mi 

7929 
7930 



38 

m 

fat 

ml 



54 



79! 

7957 

23§f 



79§5 

m 

7968 



000004 
01 



025646 
025646 
025650 
"15654 

025664 

mm 



025704 062533 



mm 
mm 



02 

8251 

025722 
°0551 
025734 



25736 

W4 

25744 
25750 
25754 
25760 



025774 
0^577 



6000 
6010 

mi 

6020 



020412 
001406 



03 
104C 



mm 

001401 
104005 



013701 

mm 
mm 

061543 

mm 

104001 

mm 

001401 



000400 
0|5704 

063552 
063276 
063306 



063316 



11 

063276 
063314 



063316 
063316 
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T377 ADD SM1,DM3 TEST 

• • **•****•••*••****••*** ***************************************** 

••TEST 400 ADD SM2,DM3 TEST 

• . ********************** ***************************************** 

TST400: 

SCOPE ;C ALL THE SCOPE LOOP UTILITY 

MOV #400,R0 JJLOAD RO WITH TEST NUMBER 

Mf)V e#2S#Rl JLOAD Rl WITH TEST INSTRUCTION WORD 

MOV #MB0F0/R2 > DEST ADDR = MBUFO 

MOV #DWTA,R4 JRESULT S / B = JDWTA 

mov Sata,r5 ;source ADDR = ATA 

MOV §ATA*10,R3 JCR33 = ADDR OF DEST ADDR 

CLR (R2) }CDEST3 = 

CCC ;SCOPE SYNC 



2$! 



3$: 

4$: 

5$: 
; 



ADD 

CMP 

BEQ 

MOV 
MOV 
ERROR 

MOV 
CMP 

BEQ 



(R5)-f,g(R3) + 

R4/(R2) 
4$ 

P 5 ?*R H 3 BUF1 

HHSifclS 

fST401 

5 



JTEST THE ADD - SM2/DM3 

JRESULT = #DWTA? 
JBR IF YES 

JSAVE R3 

/get was data 

;add delivered wrong result 
jrestqre r3 

jdid add increment dest reg 
;;br if yes 

j add failed to update dest reg 



J*TEST 401 ADD SMI. DM4 TEST 

****************************** 

TST401 



2S! 



3$! 
4$! 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 
BEQ 

MOV 
MOV 

ERROR 

MOV 
CMP 

BEQ 



1401, RO 
MB {If 0.R2 
DWTAg|4 
MBOf 0+2/R3 
R2) 

<R5),-(R3) 

R4,(R2) 
4$ 

R3,«#MBUF1 
p2)/R3 

MS"'" 
TST402 



********************************* 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

;RESULT S / B = #DWTA 

;SOURCE ADDR = ATA 

;R3 POINTS TO DEST ADDR *2 

;CDEST3 = 

; SCOPE SYNC 

;TEST THE ADD - SM1/DM4 

JRESULT = #DWTA? 
;BR IF YES 

;SAVE R3 
JGET WAS DATA 

; ADD DELIVERED WRONG RESULT 
/RESTORE R3 

;DID ADO INCREMENT DEST REG? 
>>BR IF YES 
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T401 ADD SM1,DM4 TEST 



w\ 

7973 
7974 
7973 
797| 
7971 
2976 
797i 
798C 
798] 

Wi 

798? 
7985 



7988 
7989 



7992 
7993 

ml 

7996 
7997 
7998 
7999 
8000 
8001 
8002 
8003 
8004 
8005 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 

8021 
8022 
8023 
8024 



026022 104005 



026024 
026024 
026026 
026032 
026036 
026042 
026046 
026052 
026056 
026060 



026062 061543 



026064 
026066 

026070 
026074 
026076 

026100 
026104 
026106 



026112 
026112 
026114 
026120 
026124 
026130 
026134 
026140 
026144 
026146 



026152 
326154 

026156 
026162 
026164 



000004 
012700 

mm 

012704 
012705 

mm 

000257 



020412 
001406 

010337 
011203 
104001 

013703 
020302 
001401 



026110 104005 



000004 
012700 
013701 
012702 
012704 
012705 
012703 
005012 
000257 



026150 061553 



020412 
001406 

010337 
011203 
104001 



000402 
026062 
063312 
063322 
063276 
063314 



063316 



026166 013703 



000403 
026150 
063312 
063322 
063276 
063310 



063316 
063316 



5$: 

• . •**• 

;*TEST 
j . **** 

T5T402 



2$: 

3$: 
4$: 
5$: 



j'test 

ii**** 

TST403 



2$: 



3$: 



ERROR 

******* 

402 
****** 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

ADD 

CUP 
BEQ 

MOV 
MOV 
ERROR 

MOV 
CMP 

BEQ 

ERROR 
******* 
403 

****** 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

ADD 

CMP 
BEQ 

MOV 
MOV 
ERROR 



5 > ADD FAILED TO UPDATE DEST REG. 

*** *•*•*****•***•••**•****•****•••••******•** ******* 

ADD SM2,DM4 TEST 
*************** ****** ********************** ** ******* 



(402, RO 

|MB§f ()1r2 

{DWTA,R4 

<ATA,R5 

ImBUF0+2,R3 

(R2) 



(R5),-(R3) 

R4,(R2) 
4$ 

R3.|»#MBUF1 
(R5J/R3 



g! MBUFl,R3 
TST403 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

;RESULT S / B = #DWT A 

; SOURCE ADDR = ATA 

;R3 POINTS TO DEST ADDR *2 

;CDEST3 = 

JSCOPE SYMC 

;TEST THE ADD - SM2/DM4 

JRESULT = #DWTA? 
;BR IF YES 

;SAVE R3 

;get was data 

; add delivered wrong result 
;restore r3 

;did add increment dest reg? 

;;BR IF YES 

; ADD FAILED TO UPDATE DEST REG. 

** * * 



******* ****************************** ********** 

ADD SM1.DM5 TEST 
**************************************************** 



J403/R0 
P2$,R1 

|MBOF0,R2 
*DWTA,R4 
|aTA/R5 
$ATA*12,R3 

(R2) 

(R5),@-(R3) 
R4,(R2> 

R3,@#MBUF1 
|R2),R3 

@#MBUF1,R3 



/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

;RESULT S / B = JDWTA 

;SQURCE ADDR = ATA 

;R3 CONTAINS ADDR OF DEST ADDR PLUS 
JCDEST3 = 
;SCOPE SYNC 

;TEST THE ADD - SMI, DM5 

;RESULT = #DWTA? 
;BR IF YES 

;SAVE R3 
;GET WAS DATA 

; ADD DELIVERED WRONG RESULT 
JRESTORE R3 
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8025 
8026 
8027 
8028 
8029 
8030 
8031 
8032 
8033 
8034 
8035 
8036 



8039 
8040 
8041 
8042 
8043 
8044 

mi 

8047 
8048 

mi 

8051 
8052 
8053 
8054 
8055 
8056 

§0 5 2 
8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 



8075 

m 

8079 
8080 



026172 
026176 



026202 
026202 
026204 
026210 
Q26J 

026224 
026230 
26234 
026236 



026242 
026244 

mm 



026256 
026262 
026266 



026334 
026336 



026340 
026342 



022703 
001401 



026200 104005 



000004 
012700 
013701 

8127111 

012705 
012703 
005012 
000257 



026240 062553 



020412 
001406 

010337 
011203 



026254 104001 



013703 
022703 
001401 



026270 104005 



)0QQ4 
L2700 
L3701 



000C 

oi; 

oil , 

012703 
012704. 
012705 
12703 
5501T 



OoIoI3 
000257 



020412 
001402 



011203 
104001 



063306 



000404 
026240 

06;--* 

06' 

06 L _ 
063310 



026272 
026272 
026274 
026300 
026304 
026310 
026314 
026320 
026324 
026326 



026330 061563 000004 



000405 
026330 
063316 
063322 
063276 
063312 



MACY11 
T403 



4$: 



5$: 



;*TEST 
TST404 



2$: 



3$: 
4$: 

5$: 



30AQ0 
ADD S 

CMP 

8EQ 

ERROR 
******* 

404 
******* 

SCOPE 

MOV 

MOV 

HOV 

MOV 

MOV 

MOV 

CLR 

CCC 

ADD 

CMP 

BEQ 

MOV 
MOV 

ERROR 

MOV 
CMP 

BEQ 

ERROR 



52) 15-NOV-78 
Ml, DM5 TEST 



#ATA+10,R3 
TST404 



*********** ******** 



15:26 PAGE 150 



|404,R0 
|#2$,R1 
iMBUFO^Ri 
IDWTA.R4 
|ATA,R5 
JATA+12/R3 
R2) 



(R5)*,fa-(R3) 
R4,CR2> 



?! 



MBUF1,R3 
TA+10>R3 
ST405 



. *********** 



>*TEST 

• • ****! 

TST405! 



2$: 



******* ************ 

ADD SMI/ DM6 TEST 
******************* 



3$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

ADD 

CMP 
BEQ 

MOV 
ERROR 



R2 



1405, RO 
88^0*4, 
DWTA/R4 
ATA,R5 
MBUFO, R3 
R2) 

(R5),4(R3) 

R4,(R2) 
TST406 

(R2),R3 



;did add decrement dest reg? 
;;br if yes 

;add failed to update dest reg. 

************ ********** ***•*•*•*•* 
********************************* 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

JRESULT S / B = JtDWTA 

JSOURCE ADDR = At A 

;R3 CONTAINS ADDR OF DEST ADDR PLUS 
JCDEST3 = 
>SCOPE SYNC 

;TEST THE ADD - SM2,DM5 

J RESULT = #DWT A? 
/BR IF YES 

;SAVE R3 
;GET WAS DATA 

/ADD DELIVERED WRONG RESULT 
;RESTORE R3 

;DID ADD DECREMENT DEST REG? 
;>BR IF YES 

;add failed to update dest reg 

********************************* 
************ ••***••*** **** ******* 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

JDEST ADDR = MBUFO+4 

;RESULT S / B = |DWTA 

;SOURCE ADDR = ATA 

;CR31 = BASE DEST ADDR 

HDEST3 = 

; scope sync 

;test the add - smi, dm6 

jresult = #dwta? 
;;br if yes 

;get was data 

;add delivered wrong result 
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16416 
16416 
!6420 
6424 
6430 
&6434 

mil 

6446 
i6450 



m 



26462 
26464 



!6466 

w 

6474 

1183 

6510 
6514 
6516 



000004 
012700 
013701 
012702 
012704 
°*2705 
010503 
005012 
000257 



ttVltt 
" 2705 
0503 
5012 



00040] 
026452 
063312 

mm 



026452 061573 000010 



000410 
026522 
061312 
063322 
063276 
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T406 ADD SM2/DM6 TEST 



;.************************************************** 

?*TEST 406 ADD SM2,DM6 TEST 

;.************************************************** 

TST406 



2S: 



SCOPE 
MOV 
MOV 
MOW 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 
BEQ 

MOV 

ERROR 



[mBM 0*4,R2 

|MBUr0/R3 

CR2) 



(R5)*/4(R3) 
JR2),R3 



}C ALL THE SCOPE LOOP UTILITY 
J 5 LOAD RO WITH TEST NUMBER 
7L0AD Rl WITH TEST INSTRUCTION WORD 
/DEST ADDR = MB0F0+4 
} RESULT S / B = f DWTA 
> SOURCE ADDR = ATA 
JCR33 = BASE DEST ADDR 
KDEST3 * 
>SCOPE SYNC 

>TEST THE ADD - SM2/DM6 

mre Y = E i D " TA? 



mi 



WAS DATA 

DELIVERED WRONG RESULT 



••A************************************************************ 

TEST 407 ADD SM1.DM7 TEST 



3$ 

J^icdi iui nuu jnift... 

• • ** ********************************** ****** ********************* 

T5T407: 

;call the scope loop utility 
;;load ro with test number 
/Load ri with test instruction word 
;dest aodr = mbufo 
;result S / B = fDNTA 
;S0URCE ADDR = AfA 
>BASE DEST ADDR = ATA 
JCDEST3 = 
;SC0PE SYNC 



2S! 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

ADD 

CMP 

BEQ 

MOV 

ERROR 



I407,R0 
MBUF()3r2 
DWTA#R4 
ATA.R5 

<R2) 



<R5)/(ai0(R3) 
Tsf 

(R2)/R3 



>TEST THE ADD - SM1/DM7 

;RESULT = «DWTA? 
;>BR IF YE§ 

>GET WAS DATA 

;ADD DELIVERED WRONG RESULT 



************************************** ************************j 



k********************* ********* 



3$: 

1*TEST 410 ADD SM2/DM7 TEST 
it********************** ****•••****« 

TST410: 

;CALL THE SCOPE LOOP UTILITY 

410/R0 ;;LOAD RO WITH TEST NUMBER 

#2$/Rl /LOAD Rl WITH TEST INSTRUCTION WORD 

MB0F0/R2 JDEST ADDR = MBUFO • 

DWTA/R4 JRESULT S / B = #DWTA 

ATA,R5 ;SCURCE ADDR = ATA 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 



. 1 n i 
A5,R3 
(R2) 



;BASE DEST ADDR = ATA 
>C0EST3 = 



CQKDA-C 
CQKOAC.P 
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8151 

P 
8154 
8155 

" 156 
57 

II 
160 



163 
8164 
8165 

"166 
57 



81 « 
8173 



Ifti 



026520 
026522 



026526 
026530 

19 mm 

[46 
147 
148 



026536 
026536 
026540 
026544 
026550 
026552 
026554 
026556 



026560 074403 



026562 
026564 
026566 
026570 



026574 
026576 



026600 



000257 

062573 

020412 
001402 

011203 
104001 



000004 

01270 

01370 

00500 . 

005003 

000257 

000272 



100403 
001002 
102401 
103001 



026572 104002 



020403 
001401 

104002 




000010 



000411 
02656C 



oll^o 

177777 



MACY11 30AU052) 15-NOV- 
T410 ADD SM2,DM7 TEST 



78 15:26 PAGE 152 



2$: 



3$: 



CCC 
ADD 



CMP 
BEQ 



MOV 
ERROR 



(R5)+,@10(R3) 

R4,(R2) 
TST411 

JR2)/R3 



JSCOPE SYNC 

;TEST THE ADD 

;RESULT = #DWT A? 
?;BR IF YES 

(GET WAS DATA 
ill 



SM2/DM7 



****** ****** ********** 



ATTEST 411 
« •***********< 

TST411: 

SCOPE 

MOV 

MOV 

CLR 

CLR 

CCC 

272 



; ADD DELIVERED WRONG RESULT 

***************************************** 

"XOR RA # RB" TEST - A=B=0Q00Q0 N:C=1Q10 
****** *************************** •***•**• ********* 



*411,R0 
5#2$,R1 



2$: 



3$: 
4$: 



5$: 



XOR 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 
BEQ 

ERROR 



R3 



R4/R3 

3$ 
3$ 
3$ 
4$ 



R4,R3 
TST412 



/CALL THE SCOPE LOOP UTILITY 

NUMBE" 

[NSTRU 
300000 



LOAD_R0^W|TH_TE§T_NUMBER 



J^STRyCTION WORD 



, ****************** j 



;*TEST 412 "XOR RA. 

••*****•>**•*•******•**» 

TST412: 

SCOPE 
MQV 



/LOAD Rl WITH TES 
; RESULT AND MASK 
JCDEST 1 = 000000 
>SCOPE SYNC 
JMAKE N:C=1010 

JTEST THE XOR 

;N:C=0100 ?? 



JXOR FAILED TO SET FLAGS PROPERLY 

JRESULT CORRECT? 
JJBR IF YES 

;XOR DELIVERED THE WRONG RESULT 
***************************************** 



>*****•*«• 



2$: 



MOV 
CLR 
MOV 
MOV 
CCC 
265 

XOR 

BMI 
BNE 
BVS 
BCS 



/RO 



R5,R3 
3$ 



J CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT s 000000 

>SCOPE SYNC 
JMAKE N:C-0101 

>TEST THE XOR 

;N:C=0101 ?? 
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8193 

Ills 4 

8196 
8197 
8198 
8199 
8200 

8*81 

8203 
8204 
8205 
8206 
8207 
8208 

8210 
8211 
8212 
8213 
8214 
8215 
8216 
8217 
9218 
8219 
8220 
3221 
9222 
S223 
8224 
3225 



8228 
8229 
8230 
8231 
8232 
8233 
8234 
8235 
8236 
8237 
8238 
8239 
8240 

§?tt 

8243 
8244 
8245 
8246 
8247 
8248 



026642 104002 



026644 
026646 



6652 
6652 
6654 
6660 
6664 



026670 
°26§74 
026700 
026702 



026706 
026710 
026712 
026714 

026716 

026720 
026722 



026726 
026726 
026730 
026734 
026740 
026744 
026750 



026762 
026764 
026766 
~ 5770 



0261 



020403 
001401 



026650 104002 



mm 

012704 
012705 

mm 

000266 



026704 074503 



100003 
001402 
102401 
103001 

104002 

020403 
001401 



026724 104002 



000413 
026704 
177777 
125252 
052525 



012700 000414 

mm ww 



012705 
00 0*25? 



052525 
125252 



6756 000271 
026760 074503 



100003 
001402 
102401 
103401 



026772 104002 



KACY11 30AU052) 
T412 



3$: 
4$: 



"XOR RA/RB" TEST 
ERROR 2 



15-HOV-78 15:26 PAGE 153 

A=B=177777 M:C=0101 



CMP 

8EQ 



R4,R3 
TST413 



>XOR FAILED TO SET FLAGS PROPERLY 

JRESULT CORRECT? 
;>BR IF YES 



5$: ERROR 2 7X0R DELIVERED THE WRONG RESULT 

• • *************************************************************** 

TST413: 



2S: 



3$: 
4$: 

5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
266 

XOR 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 

REQ 

ERROR 



|413,R0 

IF*".! #K H 

1125252, R5 
»052525,R3 



R5,R3 

3S 
3S 
3$ 
4S 



R4,R3 
TST414 



7CALL THE SCOPE LOOP UTILITY 
7JL0AD RO WITH TEST NUMBER 
jLOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S/B = 177777 
;MASK=125252 



;CDEST3 = 052525 
7 SCOPE SYNC 
7HAKE N:C=0110 

;TEST THE XOR 

;n:C=1000 ?? 



7 XOR FAILED TO SET FLAGS PROPERLY 

;RESULT CORRECT? 
;;BR IF YES 

;XOR DELIVERED THE WRONG RESULT 



..*************************************************************** 

;*TEST 414 "XOR RA/RB" TEST - A=052525, B=125252 N:C=1001 

: i ** ********* *********** ***************************************** 

TST414: 

;call the sccpe loop utility 
jjload ro with test number 
7load rl with test instruction word 
jresult s/b = 177777 

;MASK=052525 
7CDEST3 = 1252S2 
;SCOPE SYNC 
/MAKE N:C=1001 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
271 

XOR 

BPL 
BEQ 
BVS 
8CS 



S414/R0 

S-1#R4 
»525?5,R5 
#125252, R3 



R5,R3 



/TEST THE XOR 
JN:C=1001 ?? 



;XOR FAILED TO SET FLAGS PROPERLY 
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8249 
8250 
8251 
8252 
8253 
8254 
8255 
B256 
8257 
8258 
8259 
8260 

8263 

83*3 

8266 
8267 
8268 
8269 
8270 



8274 



026774 
026776 



027002 
027002 
027004 
027010 
027014 
027016 
027020 
027024 
027026 
027030 



027034 
027036 
027040 
027042 



027046 
027050 



020403 
001401 



027000 104002 



000004 
012700 
013701 
005004 
005005 
012702 
005012 
000257 
000272 



027032 074512 



100403 
001002 
102401 
103001 



027044 104001 



020412 
001402 




000415 
027032 



063312 



000416 
027112 

177777 
063312 
177777 
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T414 "XOR RA/RB" TEST - A=052525/B=125252 N:C=1001 



4$: 



CMP 
BEQ 



ERROR 



R4,R3 
TST415 



/result correct? 
??br if yes 

;XOR DELIVERED THE WRONG RESULT 



5$: 

^. ************** *********** 

>*TEST 415 "XOR RA.(PB)" TEST - A=B=000000 N:C=1010 
. . *************************************************************** 

TST415: 

SCOPE >CALL THE SCOPE LOOP UTILITY 

MOV #415/R0 7 ; LOAD RO WITH TEST NUMBER 

MOV B#2$/P1 /LOAD Rl WITH TEST INSTRUCTION WORD 

CLR R4 JRESULT S 7 B = 000000 

CLR R5 JMASK = 000000 

MOV 9MBUF0/R2 7DEST ADDR = MBUFO 

CLR (R2) 7CDEST3 = 000000 

CCC 7SCOPE SYNC 

272 /MAKE N:C=1010 



2$: 



3$: 
4$: 



5$: 



XOR 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



R5,(R2) 

3$ 
3? 
3§ 
4S 



R4,(R2) 
TST416 

(R2)/R3 



>TEST THE XOR 
7N:C = 0100 ?? 



7XOR FAILED TO ALTER CODES PROPERLY 

7RESULT CORRECT? 
7JBR IF YES 

7GET THE WAS DATA 

7XOR DELIVERED THE WRONG RESULT 



~ . 1 ****** **•*•***•• ******************** ********** **********< 

7*TEST 416 , 
. • ************** *******! 

TST416: 



TEST - A=B=177777 «:C=0101 



027124 104001 



2Si 



3$: 



SCOPE 




MOV 




MOV 


If 


CLR 




MOV 




MOV 




MOV 




CCC 




265 




XOR 


R5 


BMI 


35 


BNE 


3$ 


BVS 


3| 


9CS 


4$ 


ERROR 


1 



L6,R0 
!$,R1 



1/(R2) 



R5,(R2) 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
7RESULT S 7 B = 000000 
/MASK = 177777 
7DEST ADDR = MBUFO 
7 CDEST3 = 177777 
7 SCOPE SYNC 
7MAKE N:C=0101 

7TEST THE XOR 

7N:C = 0101 ?? 



7 XOR FAILED TO ALTER CODES PROPERLY 
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8305 

m 

mi 

8310 



till 
8319 
8320 



mm 
mm 



027220 



027222 
027224 



027237 

mm 

027240 
027244 
027250 
027254 
027260 

mm 



86*1402* 

011203 
104001 



027136 000004 

mm umi 

027150 032737 

mm mm 

027162 012704 

027166 012705 

027172 012702 

027176 012712 

027202 000257 

027204 000266 

027206 074512 

027210 100003 
027212 001402 

mm mm 

104001 

020412 
001402 

011203 
104001 



000004 
012700 
013701 
012704 
012705 
012702 
012712 

mm 



000417 
027206 



000400 063234 



177777 
125252 
063312 
052525 



000420 
027270 
177777 
052525 
063312 
125252 
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T416 "XQR RA,(RB)" TEST - A=B=177777 N:C=0101 



4$! 



5$: 



CMP 
BEQ 



MOV 
ERROR 



jR2),R3 



J RESULT CORRECT? 
>>BR IF YES 

>GET THE HAS DATA 

;X0R DELIVERED THE WRONG RESULT 



SCOPE 
MOV 
MOV 



„ >;LOAD R0 WITH TEST NUMBER 

1#2$,R1 ;LOAD Rl 

•SBTTL USER CONTROLLED BREAKPOINT — BIT8 



417 # R0 
Rl 



. . *************************************************************** 

;*TEST 417 "XQR RA,(RB)" TEST - A=U5252, B=052525 N:C=0110 

;.************** ******************** ******** *^****I***** ********* 

TST417: 

;CALL THE SCOPE LOOP UTILITY 
;LOAD R0 WITH TEST NUMBER 
LOAD Rl WITH TEST INSTRUCTION WOR0 
— BIT8 
BREAKPOINT HALT SET ?? 
/BR IF NOT 

; BREAK - DEPRESS CONTINUE TO RESTART 
/RESULT S/B = 177777 
/MASK = 125252 

;dest addr « mbufo 

>CDEST3 = 052525 
;SCOPE SYNC 
/MAKE N:C=0110 

;TEST THE XOR 

;n:C = 1000 ?? 



2$: 



3$: 
4$: 



5$: 



BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
CCC 
266 

XOR 

BPL 
BEQ 
BVS 
BCC 



CMP 
BEQ 



MOV 
ERROR 



#BIT8,g#BPTLOC 
.♦4 

fl2^252,R5 
#052525, ?R2) 



R5/(R2) 

3? 
3? 
3$ 
4$ 



R4,(R2) 
TST420 

|R2),R3 



;XOR FAILED TO ALTER CODES PROPERLY 

;RESULT CORRECT? 
;;BR IF YES 

;GET THE WAS DATA 

;XOR DELIVERED THE WRONG RESULT 



• . ********* ****** ******* ******* ********************************* * 

;*TEST 420 "XOR RA, (RB )" TEST - A=052525,B=125252 N:C=1001 

j.*************************************************************** 

T$T420: 

SCOPE 



027270 074512 



2$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

85 

XOR 



I420/R0 
g*?$,Rl 
I-1/R4 
152525, R5 
IMBUF0/R2 
»12525$,(R2) 



R5,(R2) 



/CALL THE SCOPE LOOP UTILITY 
;?L0AD RO WITH TEST NUMBER 
>L0AD Rl WITH TEST INSTRUCTION WORD 
;RESULT S/B = 177777 
;MASK = 052525 
>DEST ADDR = MBUFO 
;CDEST3 = 125252 
J SCOPE SYNC 
;MAKE N:C=Iooi 

;TEST THE XOR 
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8363 
8364 

mi 

8367 
8368 

IB 

8371 
8372 

817! 

8375 
8376 

$W 
8378 
8379 

iiii 
im 



8391 
8392 
839* 
8394 
8395 

P 
8398 
8399 

lj§2 

8402 
8403 

till 
8406 
8407 
8408 
8409 
8410 

im 
m\ 

8415 
8416 



027272 
027274 
027276 
027300 

027302 

8£ 



7304 
7306 



02731( 
02731: 



7314 
7314 
7316 

7 2 

733! 
336 
340 



027342 

mm 



27350 
27352 



027356 
027360 

027362 



740 



027404 

mm 

027412 
027414 



100003 
001402 
102401 
103401 

104001 

020412 
001402 

011203 
104001 



000004 
012700 
°13701 
005004 
012703 
010305 

mm 

160503 

mm 

102401 
103001 



027354 104002 



020304 
001401 

104002 



000004 
012700 

8is2o4 

012703 
010305 

mm 

160503 
100403 



000421 
027342 



000422 
027412 



125252 



MACY11 30AU0 
T420 "XOR 

BPL 
BEQ 
BVS 
BCS 
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RA, (RB)" TEST - A=052525,B=125252 N:C=1001 

3$ ;n:c = 1001 ?? 



3$: 
4$: 



ERROR 



CMP 
BEQ 

MOV 

5$: ERROR 

• . ************ 

>*TEST 421 
• . *********** 

TST421: 





SCOPE 




MOV 




MOV 




CLR 




MOV 




MOV 




StT 


2$: 


SUB 




BMI 




BNE 




BVS 




BCC 


3$: 


ERROR 


4$: 


CMP 


BEQ 


5$: 


ERROR 



R4,(R2) 
TST421 

|R2),R3 
>*••••***• 



{421, RO 
}#2S/R1 



1052525,1 
?3,R5 



R5,R3 



R3,R4 
TST422 



;xor failed to alter codes properly 

;result correct? 
;;br if yes 

>get the was data 

jxor delivered the wrong result 

***************************************** 

SM0,DM0 - (SRC) = (DEST) = ♦ 
***************************************** 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 
;CR33 = DEST OP = 55525 
?CR53 = SRC OP = 52525 
/CLEAR FLAGS , 
;MAKE N:C = 1011 

;TEST THE SUB 
>DID n:c = 0100 



;SUB FAILED TO ALTER CODES PROPERLY 

;WAS RESULT = 0? 
JJBR IF YES 



• • **********! 

;*TEST 422 
j . **********< 

TST422: 



2 ;SUB DELIVERED WRONG RESULT 

**************************************************** 

SUB TEST SM0,DM0 - (SRC) = (DEST) = -,- 
***** *********************************************** 



SCOPE 
MOV 



2$: 



)V 
MOV 
CLR 
MOV 
MOV 

S*S 

SUB 
BMI 



H22/R0 
||2$,R1 

1125252, R3 
?3,R5 



R5,R3 
3$ 



;CALL THE SCOPE LOOP UTILITY 
);LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 
-"!ST OP = 



JCR33 = DE_ . ._ 
}CR53 = SOURCE OP 
/CLEAR FLAGS 
>MAKE N.vC = 1011 

;test the sub 



125252 
= 125252 
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T422 SUB TEST SM0,DM0 - (SRC) = (DEST) = - 




000; 
140l 
102401 



000423 

mm 
mm 



000424 

177777 
000001 



3$: 
4$: 

5$: 



BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

ERROR 



4$ 

2 

R3,R4 
TST423 



>N:C = 0100? 



;SOB FAILED TO ALTER CODES PROPERLY 

; RESULT = 0? 
;>BR IP YES 

;SUB DELIVERED WRONG RESULT 



••*******•**••**••***•*••********•****•****•***•••*•**»*•***•*••* 

;*TEST 423 SUB TEST SMO.DMO - (SRC) = (DEST) = 

.J*************************************************************** 

TST423: 

>CALL THE SCOPE LOOP UTILITY 
hLOAD RO WITH TEST NUMBER 
;LQ»p Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 2 
;CR33 = DEST OP = 1 
;CR53 = SRC OP = -1 
/CLEAR FLAGS 

;make n:c = llio 



2$; 



3$: 
4$: 

5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 

SUB 

BMI 
BSQ 
BVS 
BCS 

ERROR 

CMP 

BEQ 

ERROR 



»423,R0 

|l,R3 
I-1/K5 



/TEST THE SUB 
>N:C = 0001 

;SUB FAILED TO ALTER CODES PROPERLY 

>RESULT = +2? 
;;BR IF YES 

;SUB DELIVERED WRONG RESULT 
••A************************************************************** 

;*TEST 424 SUB TEST SM0,DM0 (SRC) = -(DEST) = ♦ 

. J**************************************************** *••**•••*** 

TST424: 

/CALL THE SCOPE LOOP UTILITY 
>JLOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = -2 
;CR33 = CDEST3 = -1 
;CR53 = CSOURCE3 = +1 
/CLEAR FLAGS 

;make n:c = Olll 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

267 



R5,R3 

3S 
35 
3$ 
4$ 

2 

R3,R4 
TST424 

2 



#424,R0 

lb§ 3 



2$; 



SUB 

BPL 
BEQ 
BVS 



R5,R3 

3$ 
35 
3$ 



/TEST THE SUB 
JN:C = 1000 
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8473 

ni 

8476 
847] 
8471 
8475 
848C 
8481 
848' 

8485 
8486 

MP 

849 
849 

m 

849 
849 

m 

849 

850 

m 

850 
850 

fi 

850S 
if? 

ml 



851 
85] 
85 

ii 

852 



8521 
852f 



027552 
027554 



027564 

mm 

027572 

o tI 6 

027612 
027614 



mm 

027624 
027626 



027632 
027634 



027640 

mm 

_ 666 

mm 



mm 



103001 
104002 



27556 020403 
27560 001401 



027562 104002 



000004 
012700 






00025 
000274 



027616 160503 



102001 
103001 



027630 104002 



020304 
001401 



027636 104002 



000004 
012700 

1 72 

mm 



027674 160512 

\m% mm 



102401 
103401 



000425 

02 



M W. 

12705 000001 



000426 
9.27674 

000001 
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3$: 
4$: 

5$: 



BCC 
ERROR 



CMP 

BEQ 



ERROR 



4$ 

2 

R4,R3 
TST425 



?SUB DID NOT ALTER CODES PROPERLY 
/RESULT = -2? 

;;br if yes 

>sub delivered wrong result 



. . *************************************************************** 

>*TEST 425 SUB TEST SM0,DMO - "V" BIT SETS 

}•****»** ************************* ******************************* 

TST425: 

/call the scope loop utility 
;;load ro with test number 
/load rl with test instruction word 

/RESULT = 77777 
/CR33 = DEST OP = 100000 
>CR53 = SRC OP = 1 
/CLEAR FLAGS 

;make n:c = lioo 



2$: 



3$: 
4S: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
274 

SUB 

BMI 

BEQ 
BVC 
BCC 



CMP 
BEQ 



f425,R0 



06006, R3 



R5 



R5,R3 

3$ 
3$ 
35 
4$ 



R3,R4 
TST426 



/TEST THE SUB 

;N:C = 0011 ("V" BIT SHOULD SET) 

>SUB FAILED TO ALTER CODES PROPERLY 

/RESULT = 77777? 
;;br IF YES 



5$: ERROR 2 ;SUB DELIVERED WRONG RESULT 

******************** *************************** **************** 

******** ****** * 



J*TEST 426 SUB TEST - SM0,DM1 - N:C = 0110 

j . *********** *************************** ********** 

TST426: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 

m 

SUB 

BPL 
BEQ 
BVS 
BCS 



}426,R0 

?*2$ £ R1 

1MBUF0,R2 

I-1/R4 



R5,(R2) 



/call the scope loop utility 
;;load ro with test number 
/load rl with test instruction word 
/dest addr = mbufq 
>result s / b = 177777 

JSRC OPR = +1 
;CDEST3 = 000000 
/CLEAR FLAGS 

;n:c = Olio 

/TEST THE SUB 
>N:C = 1001 
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027706 104001 



1535 
9536 



mm 



00004 



030036 
030040 
030042 



100403 
001402 
102001 



000427 

mm 

177777 
177777 




3$i 
4Si 



5$: 



ERROR 



CMP 

BEQ 



MOV 
ERROR 



£R2),R3 



>SUB FAILED TO ALTER CODES PROPERLY 

;C0RRECT RESULT ? 
;>BR IF YES 

;GET THE HAS DATA 

;SUB DELIVERED THE WRONG RESULT 



..*** 
>*TES 



*************************************************************** 

T 427 SUB TEST - SM0,DM1 - N:C = 1Q10 

************************************************************ 



T427: 



2$: 



3$i 
4$: 



5$: 



SCOPE 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CCC 

272 

SUB 

BMI 
BNE 
BVS 
BCC 



CMP 
BEQ 



MOV 

ERROR 



#427, RO 
#-l,R5 

f-i;(R2) 



R5,(R2) 



R4,(R2) 
TST430 

(R2),R3 



;call the scope loop utility 
;;load ro with test number 
;load rl with test instruction word 
>dest addr = mbufq 

jRESULT S / B = 000000 
;SRC OPR = 177777 
;CDEST3 = 177777 
;CLEAR FLAGS 
?N:C = 1010 

;TEST THE SUB 

;n:c = 0100 



JSUB FAILED TO ALTER CODES PROPERLY 

^CORRECT RESULT ? 
;?BR IF YES 

;GET THE WAS DATA 

;SUB DELIVERED THE WRONG RESULT 



• • ******************* ******************************************** 

;*TEST 430 SUB TEST - SM0,DM1 - N:C = 0000 

• .******************* ******************************************** 

TST430: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 

*QX 
CCC 



BMI 
BEQ 
BVC 



»430,R0 

w - 

|77 



oBo,(R2) 



R5,<R2) 

3S 
3$ 
3$ 



J CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
>RESULT S / B = 77777 
;SRC OPR = +1 
>CDEST3 = 100000 
>CLEAR FLAGS 

>TEST THE SUB 

>N:C = 0010 
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103001 
104001 



14 

011203 
104001 




MACY11 30A(1052) 
TEST 



BP 

064034 



00043^ 
03016C 



063324 



T430 



3$: 
4$: 



SUB 
BCC 
ERROR 

CMP 

BEQ 

MOV 
ERROR 



15-NOV-78 
■ SM0/DM1 - 



5$: 

. . *********** 

>*TEST 431 
• • ***********< 

TST431: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
CLR 



4$ 
1 

R4,(R2) 
TST431 

jR2),R3 
******** ******* 



15:26 PAGE 160 
N:C = 0000 



;SUB FAILED TO ALTER CODES PROPERLY 



iDWTB*2,R5 



2$: 



3S: 
4$: 

5$: 



sss 

SUB 

BPL 
BEQ 
BVS 
BCS 



CMP 

BEQ 



(R5),R3 

3S 
3? 
3$ 



>CORRECT RESULT ? 
>}BR IF YES 

>GET THE WAS DATA 
>SUB DELIVERED THE WRONG RESULT 

****** ********** ******* **•**••***••** 

Ml, DMO - N:C = 0110 

************************************* 

;call the scope loop utility 
;;load ro with test number 
;load rl with test instruction word 
jresult s / b = 177777 
?src addr = dwtb+2 

;CDEST3 = 000000 
;CLEAR FLAGS 
;n:c = 0110 

;test the sub 

>n:c = 1001 



ERROR 
• • •* **••**•• * 

$*TEST 432 
• • *********** 

TST432: 

SCOPE 

MOV 

MOV 

CLR 

MOV 

MOV 

CCC 

272 



2 ;SUB FAILED TO ALTER CODES PROPERLY 

R4,R3 ;CORRECT RESULT ? 

TST432 ;;br IF YES 

2 ;SUB DELIVERED THE WRONG RESULT 

**••**••*******•****••• ********** *********** 

EST - SMUDMO - N:C = 1010 

******************************************** 

;CALL THE SCOPE LOOP UTILITY 
RO ;;LOAD RO WITH TEST NUMBER 

Rl ;LOAD Rl WITH TEST INSTRUCTION WORD 

;RESULT S / B = 000000 
♦ 2,R5 ;SRC ADDR = QWTA+2 

R3 >CDEST3 = 177777 

;CLEAR FLAGS 
>n:c = 1010 



******** 

SUB T 
******** 



4DWTA 
<R5), 



2$: 



SUB 

BMI 
BNE 

BVS 
BCC 



(R5) # ( 
3$ 



JTEST THE SUB 

>N:C = 0100 
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- SM1,DM0 - N;C = 1010 



8641 
8642 
8643 
8644 
8645 
8646 
8641 
8648 

m 

8651 
8652 
8653 
8654 
8655 
8656 
8657 
8658 
8659 
8660 
8661 
8662 
8663 
8664 
8665 
8666 
8667 
9668 
8669 
9670 
8671 
8672 
8673 
8674 
8675 
8676 
8677 

m 

8680 

m\ 

8683 
8684 
8685 
8686 
8687 
8688 
8689 
8690 
8691 

lift 
ItU 

8696 



104002 

mm 

104002 



000004 
012700 
013701 
012704 
012705 

mw 

0002 



030236 161503 



030172 

°J°174 
030176 

030200 



030202 

mm 

030210 
030214 
030220 
030224 
030230 
030234 



030240 
030242 
030244 
030246 



030252 
030254 



030260 
030260 
030262 
030266 
030272 
030276 
030302 
030306 
030312 
030314 
030316 



030322 
030324 
030326 
030330 



45 



100403 
001402 
102001 
103001 



030250 104002 



020403 
001401 



030256 104002 



000004 

mm 

012702 
012704 
012705 
012715 
005012 
000257 
000266 



030320 161512 



100003 
001402 
102401 
103401 



000433 

063316 
100000 
000001 



mm 

063312 

mm 

063316 
000001 



3$: 
4$: 



ERROR 



CMP 
BEQ 



5$: 

!*TEST 433 
- • ***** • • • 

TST433: 



2 

R4,R 
TST4 

2 



;SUB FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
;;br IF YES 



*********** 

TEST 433 
*********** 



ERROR 2 /SOB DELIVERED THE WRONG RESULT 

*********************************************** 

_ JB TEST - SM1,DM0 - M:C = 0000 
**************************************************** 



2$: 



3$: 
4$: 



5$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

SUB 

BMI 
BEQ 
BVC 
BCC 

ERROR 

CMP 
BEQ 

ERROR 



1433/ R0 

|mBUF1,R5 
|100000<R3 
1+1, (R5) 



(R5),R3 



R4,R 



TST434 



. . *********** 

>*TEST 434 
• • *********** 

TST434: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

266 



*************** 

SUB SMI, DM1 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD R0 WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;RESULT S / B = 77777 

;SRC ADDR =MBUF1 
;CDEST3 = 100000 
;SRC OPR = +1 
;CLEAR FLAGS 

;TEST THE SUB 

>n:c = ooio 



;SUB FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
>>BR IF YES 

;SUB DELIVERED THE WRONG RESULT 
************************************* 
TEST - N:C = 0110 



t* ********** ******************************** ******* 



2$; 



SUB 

BPL 
BEQ 
BVS 
BCS 



lMB§f 0^R2 
1-1, R4 

Imbufi,r5 

l+l.(R5) 
tR2) 



(R5),(R2) 



JCALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

JDEST ADDR = MBUFO 

JRESULT S / B = 177777 

;S0URCE ADDR = MBUF1 

;CSOURCE3 = 000001 

JCDEST3 = 000000 

/CLEAR FLAGS 

;N:C = 0110 

JTEST THE SUB 

;N:C = 1001 ? 
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T434 SUB SMI, DM1 TEST - N:C = 0110 



mi 

8699 
8700 

MM 
8703 
8704 

m 

8707 
8708 

.m 

8711 

mi 
mi 

W\l 
mi 
im 

8723 
8724 
8725 
8726 

ml 

87 29 
8730 

im 
m\ 

mi 

8737 
8738 

mi 
m 

8743 
8744 
8745 
8746 
8747 
8748 



030332 104001 



030334 
030336 



030340 
030342 



030344 
030344 
030346 
030352 
030356 
030362 
030366 
030372 
030376 
030400 
030402 
030404 



030410 
030412 
030414 
030416 

(130420 

030422 
"1424 



0304 



030426 
030430 



030432 
030432 
030434 
030440 
030444 
030450 
030454 
030456 
030462 



[0412 
51402 



011203 
104001 



000004 
012700 

mm 

012704 
012705 
912715 
005012 
010203 

888116 



030406 161523 



100003 
001402 
102401 
103401 

104005 

mm 

011203 
104001 



000004 
012700 
013701 

mm 

010205 
012712 
000257 



000435 
030406 

063316 
000001 



000436 
030464 
063312 
125252 

052526 



3$: 
4$: 



ERROR 



CMP 
BEQ 



MOV 
ERROR 



5$: 

• . •••••*••*•* 

>*TEST 435 
************* 

TST435: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 

266 



R4,(R2) 
TST435 

JR2),R3 



jsub failed to alter codes properly 

;correct result ? 
;;br if yes 

;get the was data 

jsub delivered the wrong result 



********************* ********************** ********* 

SUB SMI, DM2 TEST - N:C = 0110 
********** ***** ****************** ****** 



2$: 



3$: 
4$: 



5$: 



SUB 

BPL 
BEQ 
BVS 
BCS 



CMP 

BEQ 



MOV 
ERROR 



#435, RO 

0^R2 

§MBUF1,R5 
f+l,(R5) 



(R5),(R3)+ 
3$ 

3| 
4$ 



£R2),R3 



k*** *********** 

;C ALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

; RESULT S / B = 177777 

;SOURCE ADDR = MBUF1 

;CSOURCE3 = 000001 

;CDEST3 = 000000 

;R3 GETS DEST ADDR 

/CLEAR FLAGS 

;N:C = 0110 

;TEST THE SUB 

;N:C = 1001 ? 



;SUB FAILED TO ALTER CODES PROPERLY 

;C0RRECT RESULT ? 
;;BR IF YES 

;GET THE WAS DATA 

>SUB DELIVERED THE WRONG RESULT 



• • *********** 

;*TEST 436 
• • *********** 

TST436: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 



************* ********************** ******** ********* 

NEG DM2 TEST 

******** ********************************* *********** 



030464 005425 
030466 020412 



2$! 



NEG 
CMP 



!436,R0 
MB§f o3r2 
125255, R4 
2,R5 
#52526, (R2) 



<R5)+ 
R4,(R2) 



;CALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

JRESULT S / B = 125252 

;CR53 = DEST ADDR 

;CDEST3 = 52526 

;SCOPE SYNC 

>TEST THE NEG - MODE 2 
;RESULT = 125252? 



CQKDA-C 
CQKDAC. 
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Pll 
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1251 
8758 
8759 

PI 

8763 

w 

8766 
8767 

III 



hit 



794 
|795 

879^ 
8798 

im 

m\ 
mi 
im 



030470 001402 



030472 
030474 



mm 

022705 
001401 



030504 104005 



030476 
030502 



030506 
030506 

mm 
ink 

30530 
305? " 



M 030540 0002 



^0544 



546 



030550 
030552 



030554 
030560 



030622 
030624 



000004 

mm 
mm 

oi% 



030542 005435 



mi 



011203 
104001 



022705 
001401 



3787 030562 104005 



030564 
030564 
030566 
030572 
030576 
030602 
030606 
030612 
030616 



030620 005445 



m 

012704 
012705 
012712 
000257 



020412 
001402 



mm mm 



mm 

063306 
052526 



063310 



000004 

012700 000440 
030620 



53314 
52526 



MACYU 30A(1052) 15-N0V-78 
T436 NEC DM2 TEST 



BEQ 



MOV 

ERROR 



CMP 
BEQ 



ERROR 



4$ 

|R2),R3 

#MBgF0*2/R5 
TST437 



3$: 
4$: 

5$: 

U ****** ******** ************ 
, TEST 437 NEC DM3 TEST 

•I************************** 

TST437 
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;BR IF YES 

>GET THE MAS DATA 
>NEG DELIVERED WRONG RESULT 

|DID REG. GET AUTO INCREMENTED? 
?>BR IF YES 

;NEG FAILED TO UPDATE REG. 
*********************** ******* ******* 
************************************* 



2$: 



3$: 
4$: 

5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

NEG 

CMP 
BEQ 

MOV 

ERROR 

CMP 

BEQ 

ERROR 



H37,R0 



MBQFOfRi 
125252,R4 

limn) 



INSTRUCTION WORD 



9(R5)* 



R4,(R2) 
41 



(R2),R3 



#ATA+12,R5 
TST440 



************************* 

TEST 440 NEG DM4 TEST 

<• ************************** 

TST440: 



|440,R0 

llB§f0 t R2 
|125252 < R4 
JmBUF0*2,R5 
152526,(62) 



;CALL THE SCOPE LOOP UTILITY 
/ J LOAD R0 WITH TEST NUMBER 

;LQAD Rl WITH TES 

;DEST ADDR = MBUFQ 
; RESULT S / B = 125252 
KATA+103 = MBUFO 
;CDEST3 = 52526 
; SCOPE SYNC 

;TEST THE NEG - MODE 3 

;RESULT a 125252? 
JBR IF YES 

;GET HAS DATA 

;NEG DELIVERED WRONG RESULT 

;DID REG GET AUTO INCREMENTED? 
;;BR IF YES 

;NEG FAILED TO UPDATE REG. 
a************************************ 
********** *•**•******•*•••***•*•*•** • 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

NEG 

CMP 
BEQ 

MOV 

ERROR 



SCOPE LOOP UTI 
WITH TEST NUMBER 



ITY 



-(«5) 



R4,(R2) 
4$ 



p2),R3 



;CALL THf 

>»L0AD RC 

;L0AD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
>RESULT S / B = 125252 
;CR53 s DEST ADDR ♦ 2 
;CDEST3 = 52526 
>SCOPE SYNC 

JTEST THE NEG - MODE 4 

;RESULT = 125252? 
;BR IF YES 

;GET WAS DATA 

;NEG DELIVERED WRONG RESULT 
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8809 
8810 
8811 

mi 



030632 
030634 



020502 
001401 



030636 104005 



4$: 
5$: 



CMP 

BEQ 



ERROR 



R5,R2 
TST441 



>DID REG GET AUTO INCREMENTED? 
>?BR IF YES 

;NEG FAILED TO UPDATE REG 
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8814 
8815 
8816 
8817 
8818 

m 
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882* 



8825 
8826 



8829 
8830 

mi 

8833 
8834 
8835 
8836 
8837 
8838 
8839 
8840 
8341 
8842 
8843 
8844 
8845 
8846 
8847 
8848 
8849 
8850 
8851 
8852 
6853 
8854 
8855 
8856 
8857 
8858 
8859 

mt 

8864 
8865 
8866 
8867 
8868 
8869 



030640 
030640 
030642 
030646 
030652 
030656 
030662 
030666 
030672 



030676 
030700 



030702 
C'30704 



0706 
0712 



030716 
030716 
030720 
030724 
030730 
030734 
030740 
030744 
030750 



030756 
030760 



030762 
030764 



030766 
030766 
030770 
030774 
031000 



000004 
012700 
013701 
012702 
012704 
012705 
012712 
000257 



030674 005455 



011203 
104001 

022705 
001401 



030714 104005 



000004 
012700 
013701 
012702 
012704 
012705 
012712 
000257 



020412 
001402 



011203 
104001 



000004 
012700 
013701 
012702 



000441 
030674 
063312 
125252 
063310 
052526 



063306 



000442 
030752 
063312 
125252 
063310 
052526 



030752 005465 000002 



000443 
031022 
063312 



I*** a******************************************** ******* 



• • ****•**•**•*•*••***••***•**•**•****•*••••*•*•*•********•***•*•* 

;*TEST 441 NEG DM5 TEST 

• • *****•*•< 

TST44U 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 
;LQAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
/RESULT S / B - 125252 
>CR53 = (ADR OF MBUFO) *2 
JCDEST3 = 52526 
; SCOPE SYNC 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 



{441/ RO 
^B0F0,R2 



125252/R4 
AT A+12 t R5 
52526,tR2) 



2$: NEG 8-(R5) ;TEST THE NEG - MODE 5 

CMP R4/(R2) ;RESULT = 125252? 

BEQ 4$ >BR IF YES 

MOV fR2),R3 JGET MAS DATA 

3$: ERROR 1 ; NEG DELIVERED WRONG RESULT 

4$: CMP #ATA+10,R5 ;DID NEG UPDATE REG 

BEQ TST442 j;BR IF YES 

5$: ERROR 5 ;NEG FAILED TO UPDATE REG 

•£****« ****** *********** •**• ********************* ************** ** 

TST442: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

NEG 

CMP 
BEQ 

MOV 
ERROR 



^442/RO 

**&Mt 0/R2 
125252/R4 
MBUF0-2,R5 
S2526,(&2) 



2{R5) 

R4,(R2) 
TST443 

(R2)/R3 



;CALL THE SCOPE LOOP UTILITY 
; J LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
;RESULT S / B = 125252 
;CR53 = BASE ADDR 
;CDEST3 = 52526 
>SCOPE SYNC 

;TEST THE NEG - MODE 6 

;RESULT = 125252? 
;;BR IF YES 

JGET WAS DATA 

;NEG DELIVERED WRONG RESULT 



3$: 

••*** ************* ** ************** ******************** *••******•• 

J*TEST 443 NEG DM7 

****************** •**••* 

TST443: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #443/ RO >;LOAD RO WITH TEST NUMBER 

MOV |#2S,R1 /LOAD Rl WITH TEST INSTRUCTION WORD 

MOV SMBOF0/R2 JOEST ADDR = MBUFO 
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MACYll 30A(1052) 15-N0V-78 
T443 MEG DM7 TEST 



8870 
8871 
8872 
8873 

88K 

8876 
8877 



8880 
8881 



8884 
8885 
8886 
8887 
8888 
8889 



8895 
8896 
8897 

im 

8900 
8901 
8902 
8903 
8904 
8905 
8906 
8907 
8908 
8909 

8811 

mi 
mt 
m 6 i 
mi 

8920 

133* 

8925 



031004 
031010 
031014 
031020 



031026 
031030 



031032 
031034 



031036 
031036 
0.3104 " 



031076 
031100 
031102 
031104 



031114 
031116 
031120 



031122 

8m p 

031130 

mm 
mm 



012704 
012705 
012712 
000257 



020412 
001402 



011203 
104001 



000004 
512700 



531044 613701 

mm mm 



031054 
031060 
03J064 
031066 
031070 
031072 



031074 011513 



012702 

812283 

005012 
000257 
000264 



100003 
001402 
102401 
103001 



031106 104001 



031110 
031112 



020412 
001403 

005003 
051203 
104001 



000004 
012700 
013701 
005004 
005104 
012702 
012705 



125252 
063276 
052526 



031022 005475 000010 



000444 
031074 



063312 
063324 



000445 
031160 



2$: 



3$: 



MOV 
MOV 
MOV 
CCC 

NEG 

CMP 

BEQ 

MOV 
ERROR 



125252/R4 
ATA/R5 
52556, (R2) 



l»10(R5) 

R4/(R2) 
TST444 

|R2)/R3 



15:26 PAGE 166 
JRESULT S / B 



125252 



JCR53 = BASE ADDR 
JCDEST3 = 52526 
J SCOPE SYNC 

JTEST THE NEG - MODE 7 

/RESULT = 125252? 
;;BR IF YES 

;get was data 

;neg delivered wrong result 



********************* •*•**•****••* 4* ******** •*•****•*• *••**••**** 

;*TEST 444 MOV SM1,DM1 TEST - N:C = 0100 

• • ****** *************** ********* ************************ ********* 
TST444: 

; CALL THE SCOPE LOOP UTILITY 
K44/R0 JJLOAD RO WITH TEST NUMBER 

8#2$,R1 jLOAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = 177777 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
CLR 
COM 
MOV 
MOV 
MOV 
CLR 
CCC 
264 

MOV 

BPL 
BEQ 
BVS 
BCC 



CMP 

BEQ 

CLR 
BIS 
ERROR 



R4 

#MBUF0,R2 

K 2/R3* 
<R2) 



(R5),(R3) 



R4,(R2) 
TST445 

R3 

£R2),R3 



;DEST ADDR = MBUFO 
;SOURCE ADDR = DWTA+2 
;BASE DEST ADDR = MBUFO 
;MAKE CDEST3 = 000000 
/CLEAR FLAGS 
;N:C = 0100 

;TEST THE MOV - SM1/DM1 
;N:C = 1000 ? 



;MOV FAILED TO ALTER CODES PROPERLY 

;RESULT CORRECT ?? 
JJBR IF YES 

JGET THE WAS DATA 

;MOV DELIVERED THE WRONG RESULT 



0633 



5$: 

. .*•**•* A********************************* ************** ********* 

;*TEST 445 MOV SM2/DM1 TEST - N:C = 0100 

* ******************************* ************ ************** ******* 

T5T445: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #445/R0 JJLOAD RO WITH TEST NUMBER 

MOV 9# 2S ' R1 /LOAD Rl WITH TEST INSTRUCTION WORD 

CLR R4 JRESULT S / B = 177777 

COM R4 

MOV #MBUF0#R2 ;DEST ADDR = MBUFO 

MOV IDWTA+5/R5 JSOURCE ADDR = DWTA+2 
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89) 



ill 



11162 
.164 



031552 
031354 



031260 
031262 

031264 
031266 
031270 



Mil 

000257 
000264 



031160 012513 



100002 
PQ14C 



031164 001402 

mm mm 



031172 104001 

031174 020412 

031176 001403 

031200 005003 

031202 051203 

031204 104001 



031206 

031206 000004 

031210 012700 

031214 013701 

031220 005004 

mm mm 

031232 010203 

031234 005012 

031236 005112 

031240 000257 

031242 000273 

031244 011513 

100403 



OOIOOJ 
10240] 
10340 



031256 104001 



020412 
001403 

005003 
051203 
104001 



000446 
031244 
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2S: 



3$: 
4$: 



MOV 
CLR 
CCC 
264 

MOV 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 
BEQ 

CLR 
BIS 
ERROR 



R2«R3 
(R2) 



(R5)+,(R3) 

3$ 



R4,(R2) 
TST446 

R3 

£R2),R3 



;BASE DEST ADDR = MBUFO 
JMAKE CDEST3 = 000000 
JCLEAR FLAGS 
JN:C = 0100 



;TEST THE MOV 
jn:C = 1000 ? 



SM2/DM1 



JMOV FAILED TO ALTER CODES PROPERLY 

JRESULT CORRECT ?? 
JJBR IF YES 

JGET THE WAS DATA 

JMOV DELIVERED THE WRONG RESULT 



..*************************************************************** 

>*TEST 446 MOV SMl.DMl TEST - N:C = 1011 

i. ********************************** ***************************** 

T5T446: 

;C ALL THE SCOPE LOOP UTILITY 
#446, RO JJLOAD RO WITH TEST NUMBER 

g#2$,Rl jlOAD Rl WITH TEST INSTRUCTION WORD 

R4 JRESULT S / B = 000000 

#MBUF0 < R2 ;DEST ADDR = MBUFO 

IDWTA/R5 ;S0URCE ADDR = DWTA 

R2,R3 JBASE DEST ADDR = MBUFO 

|R2) JMAKE CDEST3 = 177777 



SCOPE 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
CLR 
COM 



2$: 



3$: 
4$: 



5$: 



m 

MOV 

BMI 
BNE 
BVS 
BCS 

ERROR 

CMP 
BEQ 

CLR 
BIS 
ERROR 




JCLEAR FLAGS 
JN:C = 1011 



JTEST THE MOV - SMI, DM1 
;N:C = 0101 ? 



;MOV FAILED TO ALTER CODES PROPERLY 

JRESULT CORRECT ?? 
JJBR IF YES 

J GET THE WAS OATA 

JMOV DELIVERED THE WRONG RESULT 



*********************************************** ******* ********* 



"TEST 
•****< 



MOV SM2#DM1 TEST -NSC = 1011 

k *********************** ****** 



i******************** 
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9035 
9036 
9037 



mm 



000004 
012700 
" 3701 

Ml)* 




031426 104001 



000447 
031330 



?312 
3322 



000450 
031414 



063312 
063324 
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TST447: 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
CLR 
COM 
CCC 
273 

MOV 

BMI 
BNE 
BVS 
BCS 



CMP 

BEQ 

CLR 
BIS 

ERROR 



|447,R0 
||2$,R1 

|MBUF0 i[ R2 



(R5)«-,(R3) 
3S 



4$ 
1 

R4,(R2) 
TST450 

R3 

(R2),R3 



*********** *********** ******** 

MOV SM1.DM2 TEST 
************** ******** 



J*TEST 450 
• . ******** 

TST450: 

SCOPE 

MOV 

MOV 

CLR 

COM 

MOV 

MOV 

MOV 

CLR 

CCC 

264 



11430 
J1434 



022703 
001401 



063314 



2$: 



3$: 
4$: 



MOV 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 
BEQ 



#450/R0 
||2$,R1 

R4 

#MBUF0,R2 
#pHTA+2/R5 



(R5),(R3)+ 



JC ALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORO 
JRESULT S / B = OQ0000 
J DEST ADDR = MBUFO 
JSOURCE ADDR = DWTA 
JBASE DEST ADDR = MBUFO 
JMAKE CDEST3 = 177777 

JCLEAR FLAGS 
JN:C = 1011 

J TEST THE MOV - SM2,DMl 
JN:C = 0101 ? 



JMOV FAILED TO ALTER CODES PROPERLY 

JRESULT CORRECT ?? 
JJBR IF YES 

J GET THE WAS DATA 

JMOV DELIVERED THE WRONG RESULT 

******* ****** ************* ******* 

- N:C = 0100 

********************************* 

JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = 177777 

JDEST ADDR = MBUFO 
JSOURCE ADDR = DWTA 
JBASE DEST ADDR - MBUFO 
JMAKE CDEST3 = 000000 
JCLEAR FLAGS 
JN:C = 0100 

JTEST THE MOV - SM1,DM2 
JN:C s 1000 ? 



#MBUF0*2,R3 
6$ 



JMOV FAILED TO ALTER CODES PROPERLY 

JDID MOV INCREMENT DEST REG ? 
JBR IF YES 
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9038 
903? 

ml 

M 

9044 
9045 

to 

9048 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9062 
9063 
9064 
9065 
9066 
9067 
9068 
9069 
9070 
9071 
9072 
9073 
9074 
9075 
907( 
907] 
9078 
907? 
9080 
9081 
9083 
9083 
9084 
9085 
908| 
9081 
9088 
9089 
909C 
909J 
9092 
9093 



031436 104005 



ran* 8 



42 



031444 
031446 
031450 



031452 
031452 
031454 
031460 
031464 
031466 
031470 
031474 
031500 
031502 
031504 
031506 



031512 
031514 
031516 
031520 

031522 

031524 
031530 

031532 

031534 
031536 

031540 
031542 
031544 



031546 
031546 
031550 
031554 
031560 
031562 



?l1B 

005003 
051203 
104001 



000004 
012700 
013701 
005004 
005104 
012702 
012705 
010203 
005012 
000257 
000264 



031510 012523 



100003 
001402 
102401 
103001 

104001 

mitt 

104005 

mm 

005003 
051203 
104001 



000004 
012700 
013701 
005004 
005104 



000451 
031510 



063312 
063324 



063314 



000452 
031606 



5$: 
6$: 



CMP 

BEQ 

CLR 
BIS 
ERROR 



R4,CR2) 
TST451 

R3 

JR2),R3 



jmov failed to update dest reg 

;res0lt correct ?? 
>jbr if yes 

;get the has data 

;mov delivered the wrong resdlt 



*************************************************************** 

TEST 451 MOV SM2/DM2 TEST - N:C = 0100 

********************** ******** •**•••** •****••**••****• ********* 



fiT45l: 



2$: 



3$: 
4$: 

5$: 
6$; 

7$: 

TS 



SCOPE 

MOV 

MOV 

CLR 

COM 

MOV 

MOV 

MOV 

CLR 

CCC 

264 

MOV 

8PL 
BEQ 
BVS 
BCC 



CMP 
BEQ 




(R5)*,(R3)* 

3$ 
3? 

35 
4S 



gMBUF0*2,R3 



CMP 
BEQ 



j call the scope loop utility 
;;load ro kith test number 
jload rl with test instruction word 
;result s / b = 177777 

jdest addr = mbufo 
jsource addr = dwta 
;base dest addr = mbufo 
;make cdest3 = 000000 
/clear flags 

JN:C = 0100 

JTEST THE MOV - SM2/DM2 
;n:c = 1000 ? 



;MOV FAILED TO ALTER CODES PROPERLY 

;DID MOV INCREMENT DEST REG ? 
;BR IF YES 

;MOV FAILED TO UPDATE DEST REG 

JRESULT CORRECT ?? 
>?BR IF YES 



CLR 
BIS 
ERROR 



R3 

JR2),R3 



;GET THE WAS DATA 

;MOV DELIVERED THE WRONG RESULT 

•**•******•**•*•***•**••••**•*****••**•* ****** ****** *********** 

TEST 452 MOV SMI, DM3 TEST - N:C = 0100 

********** ************************ *********** 

T452: 



»••*••*•* *********** 



SCOPE 
MOV 
MOV 
CLR 
COM 



/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBEP 
/LOAD Rl WITH TEST INSTRUCTION WORD 
; RESULT S / B = 177777 
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9094 
9095 
9096 
9097 

9100 
9 " 
9__ 
910 
910 
910 



031564 
031570 




104001 



022703 
001401 



063312 
063324 
063306 



022703 063310 
001401 



05004 



063312 
063324 
063306 



MACY11 
T452 


30AU052) 
MOV SMI, 


15-NOV-78 
DM3 TEST - 
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N:C = 0100 




MOV 
MOV 
HOV 
CLR 

$64" 


#MBUF0 (t R2 
§DWTA+5,fi5 
§ATA*10,R3 
(R2) 


JDEST ADDR = MBUFO 
;S0URCE ADDR = DWTA+2 
;BASE DEST ADDR = ATA+10 
/MAKE CDEST3 = 000000 
;CLEAR FLAGS 
jN:C = 0100 


2$: 


MUV 


(R5),9(R3)+ 


JTEST THE MOV - SMI, DM3 




BPL 
BEQ 
BVS 
BCC 


3S 
3| 
35 
45 


;N:C = 1000 ? 


3$: 


ERROR 


1 


>MOV failed to alter CODES PROPERLY 


4$: 


CMP 
BEQ 


gATA+12,R3 


;DID MOV INCREMENT DEST REG ? 
;br IF YES 


5$: 


ERROR 


5 


;MOV FAILED TO UPDATE DEST REG 


6$: 


CMP 

BEQ 


R4,(R2) 
TST453 


jresult correct ?? 
;;br if yes 


7$: 


CLR 
BIS 
ERROR 


R3 

£R2),R3 


;GET THE WAS DATA 

;MOV DELIVERED THE WRONG RESULT 



)*TEST 
f§T453 



******* ******** *********** 

453 MOV SM2, DM3 TEST 



063310 



2$: 



3$: 
4$: 



*•****•*< 

SCOPE 

MOV 

MOV 

CLR 

COM 

MOV 

MOV 

MOV 

CLR 

CCC 

264 

MOV 

BPL 
BEQ 
BVS 
BCC 



CMP 
BEQ 



t *•*••**• ******** 



#453, RO 
|j2$;Rl 



R4 

fMBUF0 iC R2 

#DWTA+2,R5 

|ATA+10,R3 

(R2) 



(R5)+,e(R3)+ 

3S 
3§ 
3| 
4S 



|ATA*12,R3 



********************************* 

- N:C = 0100 

******************* ****** ******** 

j call the scope loop utility 
jjload ro with test number 
jload rl with test instruction word 
jresult s / b = 177777 

jdest addr = mbufo 
jsource addr = dwta+2 
jbase dest addr = ata+10 
jmake cdest3 = 000000 
/clear flags 
jn:c = 0100 

JTEST THE MOV - SM2,DM3 
JN:C = 1000 ? 



JMOV FAILED TO ALTER CODES PROPERLY 

JDID MOV INCREMENT DEST REG ? 
JBR IF YES 
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031726 104005 



\mi mm 



031736 051.. . 
031740 104001 



031742 

mm 

031750 



S1764 



\m 



032022 

mm 



mm 



000004 
0l|700 

\§ 

O12705 

oii2i| 

mm 

011543 

mm 
mm 

104001 

020203 
001401 

104005 

mm 

005003 

mm 



000454 
032002 



8833*? 

063314 



000004 

012700 000455 

mm 037011 

005104 

012702 063312 
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5$: 
6$i 



ERROR 

CMP 
BEQ 

CLR 
BTS 
ERROR 



R4,(R2) 
TST454 



|R2),R3 



*************************************************************** 



7$: 

J^TEST 454 MOV SMI. DM4 TEST - N:C = 0100 

5 . ******************************************* 

TST454: 



>M0V FAILED TO UP0ATE DEST REG 

JRESULT CORRECT ?? 
>>BR IF VES 

;get the has data 
>m0v delivered the wrong result 



************* ******* 





SCOPE 




MOV 




MOV 




CLR 




COM 




MOV 




MOV 




MOV 




CLR 




CCC 




264 


2$: 


MOV 




BPL 




BEQ 




BVS 




BCC 


3$: 


ERROR 


4$: 


CMP 


BEQ 


5$: 


ERROR 


6$: 


CMP 


BEQ 




CLR 




BIS 


7$: 


ERROR 



#454,R0 
jj£2$,Rl 

R4 

#MBUF0,R2 
§DWTA+2,R5 
|MBUF0+2,R3 
CR2) 



(R5),-(R3) 



R2,R3 
6S 



R4,(R2) 
TST455 

R3 

JR2),R3 



;CALL THE SCOPE LOOP UTILITY 
LOAD R0 WITH TEST NUMBER 
OAD Rl WITH TEST INSTRUCTION WORD 
ESULT S / B = 177777 

;DEST ADDR = MBUFO 
}S0URCE ADDR = DWTA*2 
>BASE DEST ADDR = MBUF0*2 
;MAKE CDEST3 = 000000 
;CLEAR FLAGS 

;n:c = oioo 

JTEST THE MOV - SM1/DM4 
;N:C = 1000 ? 



;MOV FAILED TO ALTER CODES PROPERLY 

JDID MOV DECREMENT DEST REG ? 
;BR IF YES 

;MOV FAILED TO UPDATE DEST REG 

;RESULT CORRECT ?? 
j;BR IF YES 

;GET THE WAS DATA 

>MOV DELIVERED THE WRONG RESULT 



*************************************************************** 

>nF*I*2.I*»****t!2L.^t2***II.I*;* N *iS*5*.*22*.**.******.*...***. 

TST455: 

SCOPE ;CALL THE SCOPE LOOP- UTILITY 

MOV #455,R0 ;;LOAD RO WITH TEST NUMBER 

MOV fi#2$,Rl HOAD Rl WITH TEST INSTRUCTION WORD 

CLR R4 ;RESULT S / B = 177777 

COM R4 

MOV #MBUF0,R2 ;DEST ADDR = MBUFO 



CQKDA-C 
CQKDAC. 

$28* 

9208 
9209 

im 

9212 

y 

9216 
9217 
9218 
9219 
9220 
9i 



m 

An 

IB 

9230 
9231 
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9235 



9241 

ml 

9244 

M 

m 
M 

9254 



032060 
032064 
032070 
032072 
032074 



032100 
032102 
032104 
032106 

032110 

mm 

032116 

032120 
032122 

mm 

032130 



mm 

005012 
000257 
000264 



063324 
063314 



032076 012543 



100003 
001402 
102401 
103001 

104001 

020203 
001401 

104005 

020412 
001403 

005003 
051203 
104001 



ill! IHB m. 



456 
204 



!144 032737 001000 063234 

m mm 



[156 005004 
160 005104 



66 5I2705 

72 012703 

76 005012 

82 888282 



032204 011553 



214 103001 
032216 104001 



mm 

063310 




2$: 



3$: 
4$: 

5$: 
6$: 

7$: 



MOV 
MOV 

CLR 

MOV 

BPL 
BEQ 
BVS 
BCC 



CMP 

BEQ 

ERROR 

CMP 
BEQ 

CLR 
BIS 
ERROR 



#DWTA*2.R5 

|mBUF0+2,R3 

<R2) 



(R5)4,-(R3) 



;SOURCE ADDR = DWTA+2 

;BASE DEST ADDR = MBUFO+2 
;MAKE CDEST3 = 000000 
;CLEAR FLAGS 
;N:C = 0100 

;TEST THE MOV - SM2/DM4 

jn:c = looo ? 



R2,R3 
6$ 



R4,(R2) 
TST456 

R3 

|R2),P3 



;*TEST 456 
. . ****************** 

TST456: 

SCOPE 



JMOV FAILED TO ALTER CODES PROPERLY 

;DID MOV INCREMENT DEST REG ? 
>BR IF YES 

;MOV FAILED TO UPOATE DEST REG 

;RESULT CORRECT ?? 
JJBR IF YES 

;GET THE WAS DATA 

;MOV DELIVERED THE WRONG RESULT 

»**•******•*••*•*•*•***•*•*••**• 

S* ** 5*************2***** ****** ********* 

;CALL THE SCOPE LOOP UTILITY 



MOV #456,R0 ;;LOAD RO WITH TEST NUMBER 

MOV |#2$#R1 iLOAD Rl WITH TEST INSTRUCTION WORD 

SBTTL USER CONTROLLED BREAKPOINT — BIT9 



2$: 



3$i 



BIT 
BEQ 
HALT 
CLR 
COM 
MOV 
MOV 
MOV 
CLR 
CCC 
264 

MOV 

BPL 
BEQ 
BVS 
BCC 



#BIT9,@#BPTLOC 
.■••4 

R4 
R4 

#MBUF0,R2 
f DWTA+2, R5 
|aTA+12,R3 
(R2) 



<R5),@-(R3) 
3$ 



BREAKPOINT HALT SET ?? 
BR IF NOT 

JBREAK - DEPRESS CONTINUE TO RESTART 
;RESULT S / B = 177777 

>DEST ADDR = MBUFO 
;SOURCE ADDR = DWTA+2 

[BASE DgS| AgDR * ATA+12 



>MAKE CDEST3 
;CLEAR FLAGS 

;n:c = 0100 
;TEST THE MOV 
}N:C = 0100 ? 



SMI, DM5 



;M0V FAILED TO ALTER CODES PROPERLY 
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9262 
9263 
9264 
9265 



032316 
032322 



032326 
032330 

032332 
032334 
032336 



815113 

032346 



022703 
001401 



104005 

020412 
001403 



005003 
051203 
104001 



032242 000004 

032244 012700 

032550 013701 

032254 005004 

032256 005104 

032260 012702 

032264 012705 

032270 012703 

032274 005012 

032276 000257 

032300 000264 

032302 012553 

032304 100003 

032306 001402 

032310 102401 

032312 103001 

032314 104001 



022703 
001401 



032324 104005 



020412 
001403 

005003 
051203 
104001 



000004 
012700 
013701 



063306 



000457 
032302 



06331 . 
063310 



06 3306 



000460 
032400 
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4$: 

5$: 
6$: 



7$: 



CMP 
BEQ 

ERROR 

CMP 
BEQ 

CLR 
BIS 
ERROR 



£ATA+10/R3 



R3 

|R2),R3 



>DID MOV DECREMENT DEST REG ? 
>BR IF YES 

>MOV FAILED TO UPDATE DEST REG 

;RESULT CORRECT ?? 
>;BR IF YES 

JGET THE WAS DATA 

>MOV DELIVERED THE WRONG RESULT 



• . ******************* *****************************i 

>*TEST 457 MOV SM2,DM5 TEST - N:C = 0100 

. . **•*••*******•******<(•*•*• ****************** 

TST457: 



»••**•*•***•** 



******************* 





SCOPE 




MOV 




MOV 




CLR 




COM 




MOV 




MOV 




MOV 




CLR 




CCC 




264 


2$: 


MGV 




BPL 




BEQ 




BVS 




BCC 


3$: 


ERROR 


4$: 


CMP 




BEQ 


5$: 


ERROR 


6$: 


CMP 


BEQ 




CLR 




BIS 


7$: 


ERROR 



IP' 



R4 

#MBUF0»R2 
IdWTA+2,R5 
f ATA+12,R3 

(R2) 



(R5)*,@-(R3) 

3$ 
3? 
3| 
4$ 



ffATA+10,R3 

6$ 



R4,(R2) 
TST460 



>CALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
>LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 177777 

;DEST ADDR = MBUFO 
;SOURCE ADDR = DWTA+2 
;BASE DEST ADDR = ATA*12 



;make cdest] 
;clear flags 

;N:C = 1000 
;TEST THE MOV 
;N:C = 1000 ? 



= 00000 



SM2,DM5 



;mov failed to alter codes properly 

jdid mov decrement d est reg ? 
jbr if yes 

>mov failed to update dest reg 

;result correct ?? 
;;br if yes 



R3 

£R2),R3 



;get the was data 
;mov delivered the wrong result 

I *************************************************************** 

*************** 



;*TEST 460 MOV SMI, DM6 TEST - N:C = 0100 

• • ****************************** *******************)i 

TST460: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #460, RO >;LOAD RO WITH TEST NUMBER 

MOV §#2$,R1 jLOAD Rl WITH TEST INSTRUCTION WORD 
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9318 
9319 
932C 



m 

9325 
93% 
93! 
93 ; 

9332 

p 

9335 
93 ' 
93 



9343 

*!# 

9346 
9347 
9348 
9349 
9350 

9353 

15 
}5 



032352 
032354 
032356 
032362 

mm 
83^76 



32404 

ihn 

32412 



032416 
032420 

032422 
032424 
032426 



032430 

815113 

032436 
032442 
032444 

°3244f 
032452 
33245$ 
13246* 



005004 
005104 
012702 

mm 

005012 

mm 



100003 

001402 
102401 
103001 



032414 104001 



005003 
lBiB8l 




9372 
9373 



005003 
051203 
104001 



063320 

mm 



032400 011563 000006 



000461 
032470 



063 



120 
124 
112 



000006 



MACY11 30AU0 
T460 MOV S 

CLR 
COM 
MOV 
MOV 
MOV 
CLR 
CCC 
264 

2$: 



MOV 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 

BEQ 

CLR 
BIS 

5$: ERROR 

. . *********** 

;*TEST 461 
• • *********** 
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Ml, DM6 TEST - N:C = 0100 

R4 ;RESULT S / B = 177777 

R4 

#MBUF0+6,R2 >DEST ADDR = MBUFO+6 

|DWTA+2 < R5 ;S0URCE ADDR = DWTA*2 

JMBUF0/R3 ;8ASE DEST ADDR = MBUFO 

(R2) >MAKE CDEST3 = 000000 

; CLEAR FLAGS 

;N:C = 0100 

;TEST THE MOV - SMI, DM6 
;N:c = 1000 ? 



(R5),6(R3) 

3$ 
3$ 
3| 
4$ 



3$: 
4$: 



TST461: 



R4,(R2) 
TST461 

R3 

£R2),R3 

*********** 

MOV SM2, 
*********** 



2$: 



3$: 
4$: 



5$: 



SCOPE 

MOV 

MOV 

CLR 

COM 

MOV 

MOV 

MOV 

CLR 

$H 

MOV 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 

BEQ 

CLR 
BIS 
ERROR 



#461, RO 
gj|2$,Rl 

R4 

#MBUF0+6 
&DWTA+2, 
#MBUF0,ft 
(R2) 



(R5)t,6( 
3$ 



4$ 
1 

R4,(R2) 
TST462 

R3 

JR2),R3 



>MOV FAILED TO ALTER CODES PROPERLY 

;RESULT CORRECT ?? 
>;BR IF YES 

;GET THE WAS DATA 

JMOV DELIVERED THE WRONG RESULT 
************************* ******* ********* 

DM6 TEST - N:C = 0100 

******** ****************** *************** 

;CALL THE SCOPE LOOP UTILITY 
5LOAD RO WITH TEST NUMBER 



R5 2 



R3) 



/iiuw kv inn iui nunncK 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 177777 

?DEST ADDR = MBUFO+6 
;SOURCE ADDR - DWTA»2 
>BASE DEST ADDR = MBUFO 
;MAKE CDEST] = 000000 
;CLEAR FLAGS 
;N:C = 0100 

;TEST THE MOV - SM2/DM6 
;N:c = 1000 ? 



;MOV FAILED TO ALTER CODES PROPERLY 

; RESULT CORRECT ?? 
;;BR IF YES 

JGET THE WAS DATA 

;MOV DELIVERED THE WRONG RESULT 
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9374 
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102401 
103001 



000462 
032560 

063312 

mi 



000010 



000463 
032650 



063312 



000010 



« *********** 

:n*;*s*i*** 

ST462: 

SCOPE 
MOV 
MOV 
CLR 

58? 

MOV 

m 



******* ************ **************** ********** *•***•• 

•***2i***4iS|l2*I******S*i(***2iSS********* *********** 



2$: 



MOV 

BPL 
BEQ 
BVS 
BCC 



462, RO 
i|2S>Rl 

|MBUF0/R2 
tAf A,R3 



<R5),eiO(R3) 



/call the scope loop utility 

;;load ro with test number 

;load rl with test instruction word 

;RESULT S / B a 177777 



JDEST A 
JSOURCE 

•040 



DDR - MBUFO 
„ ADDR = DWTA+2 

utf hhItJ 8 e B ooo^ 

;CLEAR PLAGS 



>N:C = 0100 
;TEST THE MOV 
;NlC = 1000 ? 



SM1/DM7 



3$: 
4$: 



CMP 
BEQ 

CLR 
BIS 

5$: ERROR 
• • ***•••*••** 

>*TEST 463 
••*•******« 

TST463: 

SCOPE 

MOV 

MOV 

CLR 

COM 

MOV 

MOV 

MOV 

CLR 

CCC 

264 

MOV 

BPL 
BEQ 
BVS 
BCC 



4$ 
1 

R4,(R2) 
TST463 

R3 

(R2),R3 



*************** 

MOV SM2,DM7 
******* ******** 



3, RO 
S/Rl 



2$i 



R4 

#MBUF0.R2 

fDWTA*2,R5 

§ATA,R3 

(R2) 



<R5),G10(R3) 



>mov failed to alter codes properly 

;result correct ?? 
;;br if yes 

>get the was data 

>mov delivered the wrong result 

************ ************** *********** 

TEST - N:C = 0100 

************************************* 

;call the scope loop utility 
;;load ro with test number 
jload rl with test instruction word 
;result s / b = 177777 

;dest addr = mbufo 
;source addr = dwta+2 
;base dest addr = ata 

J M AKE CDESTl = 000000 
/CLEAR FLAGS 
)N!C = 0100 

/TEST THE MOV - SM2/DM7 
>N:C = 1000 ? 
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9432 
9433 

mi 

9436 
9437 

till 
9440 

B. 

9444 
9445 
9446 
9447 

M 

9450 

m 

9455 

\w 

9458 
9459 

till 
9462 
9463 
9464 
9465 
9466 



94 

94, 

m 



941 



032664 104001 

mm mm 
mm 

032676 



mm 

J32702 
32706 
32712 

pit 

032724 

032726 

Q32730 
032732 

032734 
032736 



§464 
9485 



mm 
mm 



033000 
033000 



mm 

104001 



000004 
012700 
01370- 

miv 

010205 
005012 
000257 

010015 

020412 
001402 



032766 010025 



000004 



000464 
032726 
063312 
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3$: 
4$: 



5$: 



CMP 
BEQ 

CLR 
BIS 
ERROR 



R4,(R2) 
TST464 

R3 

JR2),R3 



;MOV FAILED TO ALTER CODES PROPERLY 

/RESULT CORRECT ?? 
;>BR IF YES 

;GET THE WAS DATA 

;MOV DELIVERED THE WRONG RESULT 



• . ****** **************** **************** ************** *********** 

J*TEST 464 MOV SM0/DM1 TEST 

. . ******* ft******************* *************** ************ ********* 
TST464: 



MOV SM0/DM1 TEST 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 
REQ 

MOV 

ERROR 



#464, RO 

Pb§^0/R2 
R0/R4 
R2/R5 
(R2) 



R0/(R5) 

R4,(R2) 
TST465 

JR2),R3 



;C ALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
;RESULT S / B = TEST NUMBER 
;R5 GETS DEST ADDR 
;CDEST3 = 000000 

j scope sync 

jtest the mov 

;result correct ? 
;;br if yes 

?get the was data 

;mov delivered the wrong result 



********************** *•**•*•• ********************************* 

************************ ******* 



J*TEST 465 MOV SM0/DM2 TEST 

• • ******************************** 

TST465: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOV 

CMP 
BEQ 



#465, RO 

eP$/Rl 

PBUF0,R2 

R0,R4 

R2/R5 

<R2) 



R0/(R5)+ 

R4,(R2) 
TST466 



;CALL THE SCOPE LOOP UTILITY 

;>LOAD RO 

;LOAD Rl W 
?DEST ADDR 



;>LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 



MBUFO 
B = TEST NUMBER 



Hot i R2) '" 



>RESULT S / _ 
$R5 GETS DEST ADDR 
;CDEST3 = 000000 
;SCOPE SYNC 

JTEST THE MOV 

; RESULT CORRECT ? 
;;BR IF YES 

>GET THE WAS DATA 
;MOV DELIVERED THE WRONG RESULT 



3$i 

J^TEST 466 MOV SM0,DM3 TEST „ ^ 

*********** *********************** **************** 

TST466: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 



*************************************************************** 

*•* ******* 
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948< 
948" 
948 



949 

949 = 

949' 

l\P 

949 
949 
949 

m 

9t>0 

'.'50 

950 

960 

950 

950 

950 

95 

95 iO 

95 11 

9512 

m5 

9514 
9515 
95ll 
9517 
9518 

mi 

9521 
9522 
9523 
9524 
9525 
952J 
952] 
952S 
952? 
953C 
9531 
9535 
9533 
9534 
9535 
9536 
9537 
9538 
9539 
9540 
9541 



033042 
0|3042 



033074 
033076 



033100 
033102 



033104 
033104 
033106 
033112 
033116 
033122 
033124 
033130 
033132 



033136 
033140 



Mil 

mm 
nun 

000257 

010035 

020412 
001402 

mm 



033072 010045 



020412 
001402 



011203 
104001 



000004 
012700 
013701 
012702 
010004 
012705 
005012 
000257 



033134 010055 



mm 



mm 

063312 
063306 




063314 



000470 
033134 
063312 

063310 



MACYU 
T466 



2$: 



30AU052) 15-MOV-78 
MOV SM0,DM3 TEST 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 




MOV 



CMP 
BEQ 



MOV 

ERROR 



R0,(?(RS) + 

sum* 

(R2),R3 
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;;load ro with test number 

;loao Rl WITH TEST INSTRUCTION k 
JDEST ADDR = MBUFO 
; RESULT S / B = TEST NUMBER 
;BASE DEST ADDR = ATA+10 
;CDEST3 = 000000 

) scope sync 

;test the mov 

;correct result 
;;br if yes 

/get the was data 
>mov delivered the wrong result 



3S: 

. • *********** *********** •*•*•**• ************ ••********••***••*•** 

;*TEST 467 KOV SM0,DM4 TEST 

••*•**«**** ****************************************** ************ 

TST467: 

/call the scope loop utility 
;;load ro with test number 
/load rl with test instruction word 
>dest addr = mbufo 
;result s / b = test number 
;r5 contains base dest addr 

;CDEST3 = 000000 
;SCOPE SYNC 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

",0V 

CMP 

BKQ 

MUV 
ERROR 



#467, RO 

PruY o}r2 

R0/R4 

#MBUF0+2,R5 
(R2) 



R0/-CR5) 

R4,(R?) 
T3T470 

(R2),R3 



;test the mov 

jcorrect result ? 
;;br if yes 

;gkt the was data 

;mov delivered the wrong result 



.•******************************** 

; 4 TEST 470 MOV 
. • ****************** 

TST470: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 



t***************** ********* 

SM0.DM5 TEST 

*** ************** ••****•***•**•***•*•*••*** * 



^470, RO 

kwluf o!r2 

R0,R4 

#AT»+12,P5 
(R2) 



2$: 



MOV 



CMP 

8EQ 



033142 011203 



RO,0-(R5) 

P4/(R2) 
TST471 

(R2),R3 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LCAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
;RESULT S / B = TEST NUMBER 
;R5 CONTAINS BASE DEST ADDR 
; CDEST3 = 000000 
/ SCOPE SYNC 

/TEST THE MOV 

/CORRECT RESULT ? 
;;BR IF YES 

; GET THE WAS DATA 
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9542 
954? 
954$ 
954« 
254? 
9541 
9541 
954? 



9552 
9553 

ffll 

955« 
9557 
955{ 
955? 
956* 
956J 

9564 
9565 
956J 

95 f 
95* 
956? 



958_ 
9584 
958 
958 
958 
958 
958 
959 
959 
959 
959 
959 
959, 
9596 
9597 



033144 104001 



033146 
033146 

81113? 

033160 
033164 

mm 

033174 



000004 

mm 

012702 
010004 

mm 

000257 



033202 
033204 



033206 
033210 



033212 

mm 

033220 
033224 

033234 
033236 
033240 



020412 
001402 



011203 
104001 



033254 104002 



033256 
033260 



020403 
001401 



033262 104002 



033264 
033264 



mm 

063316 
063312 



033176 010065 000004 
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3$: 



ERROR 
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;MOV DELIVERED THE WRONG RESULT 



************** • ** ***************** •****•*•«**•* **************** 

** 55**21 **«**»**< 



if 1**5 

TST471 



t************************************* 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

MOV 

CMP 
BEQ 

MOV 

ERROR 



MOV SMQ/DM6 TEST 
>*****••***•*• **••< 

?CALL THE SCOPE LOOP UTILITY 



IMBUF 1/R2 
R0,R4 
#MBUF0,R5 
<R2) 



R0/4CR5) 

R4,(R2) 
TST472 

JR2),R3 



/ i LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR - MBUF1 
/RESULT S / B = TEST NUMBER 
;BASE DEST ADDR = MBUFO 
JCDEST3 = 000000 

> scope sync 

/•test the mov 

;result correct ? 
;;br if yes 

/get the was data 
>mov delivered the wrong result 



2$: 



3$: 

• •••***• ******** ******** ************ ****•**•< 

J*TEST 472 MOVB TEST - SM0 t DM0 - EXTEND 1 *S 

J . ************ *************** ******* ****************** *********** 

TST472: 

/call the scope loop utility 
;;load ro with test number 
/load rl with test instruction word 
j result s / b = 177652 
;source op = 252 

;CDEST3 = 000000 
/CLEAR FLAGS 
?N:C = 0110 



SCOPE 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

266 



#472, RO 
a*2S,Rl 
fl77652,R4 
#252, R5 
R3 



2$: 



3$: 
4$: 

5$: 



MOVB 

BPL 

BEQ 
BVS 
BCC 

ERROR 

CMP 
BEQ 

ERROR 

***********< 



R5,R3 



R4,R3 
TST473 



;*TEST 473 
• • ******** 



,,. . _ MOVB TEST 

******* *••••••*••*•** ******* 

TST473: 

SCOPE 



;test the movb 
;n:c = iooo ? 

;movb failed to ALTER CODES PROPERLY 

jresult correct ? 
;;br if yes 

;movb delivered the wrong result 
m0,dmq - extend o's 

*******************< 



i ••**•• ••***••**•* 



/CALL THE SCOPE LOOP UTILITY 
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9604 
9605 



mi 



mm i 



033326 

mm 



033364 



3366 
3370 



iff 



257 
271 



033314 110503 



L00403 
501002 



102401 
103401 

104002 

Witt 

104002 



000004 
012700 

nk\ 

012705 
005003 
005103 
000257 

111503 

020403 
001401 



033372 104002 



033374 000004 

033376 012700 

033402 013701 

033406 012704 

033412 012705 

033416 012703 

033422 000257 

033424 111503 



mm 

177400 



)0474 
33364 



064630 



000475 
033424 
000125 
064633 
177400 



2$: 



3$i 
4$S 

5$: 



m 

CLR 
MOV 
CLR 
COM 
CCC 
271 

MOVB 

BMI 
BNE 
BVS 
BCS 

ERROR 

CMP 
BEO 

ERROR 



il 



}3?;H 

177400, R5 



R5,R3 

3S 
3$ 
3$ 
4$ 



R4,R3 
TST474 



••**•**•********••••••*** 

;*TEST 474 MOVB TEST 

**************************** 

T5T474: 



2$: 



3$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
CLR 
COM 
CCC 

MOVB 

CMP 
BEQ 

ERROR 



#474, RO 
||2$,R1 

|dBTA,R5 

R3 

(R5),R3 

Tsf5^5 
2 



**************************** 

>*TEST 475 MOVB TEST 

**************************** 

TST475 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

MOVB 



H75,R0 
5#2$,R1 
|l25,R4 
|DBTA+3,R5 
1177400, R3 



(R5),R3 
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- EXTEND O'S 

|L{55J§ D R?%?T3S H TlIfl8^R§?TION WORD 
;RESULT S / B = 000000 
;SOORCE OP =177400 
JCDESTJ = 177177 

/CLEAR FLAGS 
;N:C = 1001 

J TEST THE MOVB 

;n:c = 0101 ? 



;MOVB FAILED TO ALTER CODES PROPERLY 

;RESULT CORRECT ? 
;jBR IF YES 

;MOVB DELIVERED THE WRONG RESULT 
************************************* 

SMI, DM0 - SOURCE ADDR EVEN 
****************** ** *****••***••••* * * 

J CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/•LOAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = 000000 

JSOURCE ADDR = DBTA 

;CDEST3 = 177777 

JSCOPE SYNC 

/TEST THE MOVB 

/RESULT CORRECT ? 
>;BR IF YES 

>M0VB DELIVERED THE WRONG RESULT 

************************************* 

SM1#DM0 - SOURCE ADDR ODD 
************************************* 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

> RESULT S / E = 125 

JSOURCE ADDR = DBTA+3 

>CDEST3 = 177400 

JSCOPE SYNC 

;TEST THE MOVB 



SEQ 0178 



CQKDA-C 
CQKDAC. 

9654 
9655 
9656 
9657 
9658 
9659 
9660 
9661 
9662 
9663 
9664 
9665 
§666 
9667 
9668 
9669 

m 

9673 
9674 
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T475 MOVB TEST - SMI, DM0 - SOURCE ADDR ODD 



SEQ 0179 



9677 

m 

9680 
9681 



1685 

3*1* 

9688 
9689 

i 

9693 
9694 
9695 
9696 

im 

9699 
9700 
9701 

m 



91 
97< 



9709 



033426 
033430 

033432 



033434 
033434 
033436 
033442 
033446 
033452 
033456 
033460 

033462 

033464 
033466 

033470 

033472 
033476 



033500 104005 



020403 
001401 



104002 



000004 

012700 000476 

mm mm 

012705 064631 

005003 

000257 

112503 

mm 

104002 

022705 
001401 



033502 

mm 
mm 

033516 
033522 
033526 

033530 

023532 
033534 

033536 



033540 022705 
033544 001401 



033546 104005 



000004 
012700 
013701 
005004 
012705 
012703 
000257 

112503 

020403 
001401 

104002 



064632 



000477 
033530 



064630 
177400 



064631 



CMP 
BEQ 



R4,R3 
TST47< 



3$: ERROR 

*************************** 

;*TEST 476 MOVB TE 

• . ********************* 

TST476 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 
BEQ 

ERROR 

CMP 

BEQ 

ERROR 



!476,R0 
-^R4 R1 
DBT A+l, R5 

(R5)+,R3 

R4,R3 
4$ 



2$: 

3$: 
4$: 

5$: 

. • ************************* 

>*TEST 477 MOVB TEST - 

i * ************************* 

TST477 



|DBTA+2,R5 
TST477 



;RESULT CORRECT ? 
;;BR IF YES 

>M0VB DELIVERED THE WRONG RESULT 
********* ******************** ********* 

SM2,DM0 - SOURCE ADDR ODD 
************************************** 

;CALL THE SCOPE LOOP UTILITY 

>}LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = 177777 

>S0URCE ADDR = DBTA+1 

>CDEST3 = 000000 

/SCOPE SYNC 

JTEST THE MOVB 

;RESULT CORRECT ? 
;BR IF YES 

>MOVB DELIVERED THE WRONG RESULT 

;DID MOVB INCREMENT SRC REG 7 
;;BR IF YES 

;MOVB FAILED TO UPDATE SRC REG 

************* ****************** ******* 

SM2/DM0 - SOURCE ADDR EVEN 
************************************** 



SCOPE 

MOV 

MOV 

CLR 

MOV 

MOV 

CCC 

MOVB 

CMP 

BEQ 

ERROR 

CMP 
BEQ 

ERROR 



#477, RO 
||2$,R1 

#DBTA,R5 
#177400, R3 

(R5)+,R3 

R4,R3 
4$ 



2$: 

3$: 
4$: 

5s: 

..************************* 

J "TEST 500 MOVB TEST - 



|DBTA*1,R5 
IST500 



j call the scope loop utility 
;;load ro with test number 
jload rl with test instruction word 
jresult s / b = 000000 
jsource addr = dbta 

JCDEST3 = 177400 
jSCOPE SYNC 

jTEST THE MOVB 

;RESULT CORRECT ? 
JBR IF YES 

;MOVB DELIVERED THE WRONG RESULT 

;DID MOVB INCREMENT SRC REG ? 
JJBR IF YES 

JMOVB FAILED TO UPDATE SOURCE REG 
************************************** 

SMI, DM1 - SRC ADR ODD / DST ADR EVEN 
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J731 
9732 
9233 
9734 
9735 
9736 
9737 
9738 
9739 
9740 
9741 
9742 
9743 
9744 
9745 
9746 
9747 
9748 
9749 
9750 
9751 

mi 

9754 



mm 



000004 

P$l° 
012702 
012704 

mm 

000257 

111512 

020412 
001402 

mm 



000500 

mm 

000377 
064631 



033614 
033614 
033616 
033622 
033626 
033632 
033636 
033642 
033644 
033646 


000004 
012700 
013701 
012702 
012704 
012705 
005012 
010203 
000257 


000501 
033650 
063312 
000377 
064631 


033650 


111523 




033652 
033654 


020412 
001402 




033656 
033660 


011203 
104001 




033662 
033666 


022703 
001401 


06331.3 


033670 


104005 






MACY11 30AU052) 15-NOV-78 
T500 MOVB TEST - SMI/ DM1 
**************************** 

TST500 



2S: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 
BEQ 

MOV 
ERROR 



»500,R0 • 

|f$BW0,R2 
|377<R4 

§dbta+i,r5 

?R2) 



(R5) / (R2) 

R4,(R2) 
TST501 

|R2),R3 



************************** 



TEST 501 



MOVB TEST - 



j • ****** *•**•***•*•*• ******* 

TST501 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 

MOVB 

CMP 
BEQ 

MOV 

ERROR 

CMP 
BEQ 

ERROR 



IdBTA+1,R5 

CR2) 

*2,R3 



(R5),(R3)* 



R4,(R2) 
4$ 



[R2),R3 



|MBUF0+1,R3 

is 



fST502 



9764 
9765 



063312 
000377 
064631 



2$: 



3$i 
4S! 

5$: 



*>************************** 

;*TEST 502 MOVB TEST - 

••***•****•***•• ************ 

TST502: 

SCOPE 

MOV #502, RO 

MOV A#2S«R1 

MOV pB0F0,R2 

MOV #377. R4 

MOV #DBTA+1,R5 



15t26 PAGE 181 
- SRC ADR ODD / DST ADR EVEN 

* ••••••••* a******************* ******* 

/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl KITH TEST INSTRUCTION WORD 
JDEST ADDR - MBUFO 
;RESULT S / B = 377 
;SRC ADDR - DBTA +1 
;CDEST3 = 000000 
JCLEAR FLAGS - SCOPE SYNC 

/TEST THE MOVB 

;CORRECT RESULT ? 
;;br IF YES 

;GET THE WAS DATA 
;MOVB DELIVERED WRONG RESULT 

************************************* 

SMI, DM2 - SRC ADR ODD / DST ADR EVEN 
************************************* 

/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
>RESULT S / B = 377 
;SRC ADDR = DBTA *1 
;CDEST] = 000000 
;CR33 = DEST ADDR 
;CLEAR FLAGS - SCOPE SYNC 

/TEST THE MOVB 

;CORRECT RESULT ? 
;BR IF YES 

;GET THE WAS DATA 

;MOVB DELIVERED WRONG RESULT 

;DID MOVB INCREMENT THE DEST REG ? 
;>BR IF YES 

;MOVB FAILED TO UPDATE DEST REG 
************************************* 

SMI, DM3 - SRC ADR ODD / DST ADR EVEN 
**************************** ********* 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
; RESULT S / B = 377 
JSRC ADDR = DBTA +1 
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9766 
9767 
9768 



9769 



977J 
977? 

%m 

9776 
9777 



m 

978C 
9781 

w 

9784 
9785 

w 

9788 

mi 
m\ 
m 

9795 
9796 
9797 
9798 
9799 

mi 



mi 

9814 

w 

m 

9820 
9821 



033720 
033722 
033726 



033732 
033736 

033740 

mm 

033746 
033750 



7 r3 

376 

m 



033774 
034000 
034002 
034006 



034012 
034014 

034016 

034020 
034022 

034024 
034026 



034030 
034030 

mm 

034042 

mm 

034056 
034060 



005012 
012703 
000257 



033730 111533 



022703 
001401 

104005 

020412 
001402 

011203 
104001 



000004 
012700 



012705 
005012 
012703 
000257 



034010 111543 



020302 
001401 

104005 

Witt 

011203 
104001 



000004 

012702 

005012 
012703 



063306 



063310 



000503 

mm 

000377 
064631 

063313 
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MOVB TEST - SM1/DM3 - SRC ADR ODD / DST ADR EVEN 



T502 



CLR 
MOV 
CCC 

MOVB 

CMP 
BEQ 



CMP 
BEQ 



MOV 

ERROR 



• • **•*•****••* 

;*TEST 503 
•••*•**«****** 

TST503: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 



2$: 



3$: 
4$: 



5$: 



(R5),@(R3)+ 



|ATA+12,R3 



R4,(R2) 
TST503 

p2),R3 



JCDESTJ = 000000 

;BASE DEST ADDR = ATA +10 

/CLEAR FLAGS - SCOPF. SYNC 

;test THE MOVB 

JDID DEST REG GET INCREMENTED ? 
;BR IF YES 

;MOVB FAILED TO UPDATE DEST REG 

JCORRECT RESULT ? 
;;br IF YES 

/GET THE WAS DATA 

;MOVB DELIVERED WRONG RESULT 



******* ********************* ****** ***************** 

MOVB TEST - SMI, DM4 - SRC ADR ODD / DST ADR EVEN 
••*•**•*•*•****•**** ******** ************ *********** 



2$: 



3$: 
4$i 



5$: 



MOVB 

CMP 
BEQ 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



(503, RO 
|MBUF0,R2 

fDBTAtl,R5 

CR2) 

>HBUF0*1,R3 



(R5),-(R3> 



R3,R2 
4$ 



miv 

(R2),R3 



/CALL THE SCOPE LOOP UTILITY 

;?LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

;RESULT S / B = 377 

JSRC ADDR = DBTA +1 

JCDEST3 = 000000 

HNITIAL DEST ADDR = MBUFO + 1 

;CLEAR FLAGS - SCOPE SYNC 

>TEST THE MOVB 

;DID MOVB DECREMENT DEST REG ? 
;BR IF YES 

;HOVB FAILED TO UPDATE DEST REG 

;C0RRECT RESULT ? 
;?BR IF YF.S 

;GET THE WAS DATA 

;MOVB DELIVERED WRONG RESULT 



..************ 

►TEST 504 



4s 



************ 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 



*************************************************** 

MOVB TEST - SMI, DM5 - SRC ADR ODD / DST ADR EVEN 
************************************************* 



|504, RO 
IM8o7o3r2 

|Sb?1+1,R5 

[R2) 

|ATA+12,R3 



JCALL THE SCOPE LOOP UTILITY 

; JLOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

>DEST ADDR = MBUFO 

;RESULT S / B = 377 

;SRC ADDR = DBTA +1 

;CDEST3 = 000000 

;INITIAL DEST ADDR = ATA +12 



CQKDAC.P11 07-NQV-7? 
9822 034064 000257 
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98j 
985 



9850 



mi 

9837 

nil 

9840 
9841 

ml 
nh 

9848 
9849 
9850 
9851 
9852 
9853 
9854 
9855 
9856 

98 

9860 
9861 
9862 
9863 
9864 
9865 
9866 
9867 

?gfi 

w 

p 

9874 

m 



034066 111553 



322703 
501401 



034070 
034074 

034076 

mm 

034104 
034106 



034156 
034160 



034162 

mm 

034200 
034204 
034210 
034212 
034216 



104005 

mm 

011203 
104001 



000004 




011203 
104001 



000004 



01270 
012705 
005012 
912703 
000257 



14:09 


T504 


MOVB 

CCC 


TEST - SMI, DM5 - 


SRC ADR ODD 7 OST AOR EVEN 
JCLEAK FLAGS - SCOPE SYNC 




2$: 


HOVB 


(R5) 7 0-(R3) 


>TEST THE MOVB 


063306 




CMP 
BEQ 


|ATA*10,R3 


;DID MOVB DECREMENT DEST REG ? 
;br IF YES 




3$: 


ERROR 


5 


;MOVB FAILED TO UPDATE DEST REG 




4$: 


CMP 

BEQ 


R4,(R2> 
TST505 


;CORRECT RESULT ? 
;;BR IF YES 




5$: 


MOV 

ERROR 


JR2),R3 


;GET THE WAS DATA 

;M0VB DELIVERED WRONG RESULT 



000505 

off! 12 

000377 
064631 

063320 



177772 




063276 



034220 111573 000010 



TST505: 



2$: 



3$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 

MOVB 

CMP 
BEQ 

MOV 
ERROR 



505/RO 

$B§f oJr2 
377/R4 
OBTA+1, R5 



F0+6/R3 



Imbu 



(R5)/-6(R3) 

R4.(R2) 
TST506 



• . ************ 

?*TEST 506 
••******•*< 

TST506: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 



2$: 



034224 
034226 



020412 
001402 



MOVB 



CMP 

BEQ 



|R2),R3 



|506,RO 

plSf II}r2 
#377, R4 
|DBTA+1,R5 
<R2) 
#ATA,R3 

(R5),01O(R3) 

R4,(R2) 
TST507 



SRC ADR ODD / DST ADR EVES 

►*************************< 

;C ALL THE SCOPE LOOP UTILITY 

;>LOAD RO WITH TEST NUMBER 

>LOAD Rl WITH TEST INSTRUCTION WORD 

>DEST ADDR = MBUFO 

;RESULT S / B = 377 

JSRC ADDR = DBTA +1 

;CDEST3 = 000000 

>BASE DEST ADDR = MBUFO+6 

;CLEAR FLAGS - SCOPE SYNC 

;TEST THE MOVB 

;CORRECT RESULT ? 
>JBR IF YES 

>GET THE WAS DATA 

;MOVB DELIVERED WRONG RESULT 



JCALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

;RESULT S / B = 377 

;SRC ADDR = DBTA +1 

>CDEST3 = 000000 

>BASE DEST ADDR = ATA 

;CLEAR FLAGS - SCOPE SYNC 

JTEST THE MOVB 

;CORRECT RESULT ? 
;;BR IF YES 



CQKDA-C KD11- 
CQKDAC.P11 
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9878 
9879 



034230 
034232 



011203 
104001 




000511 
034406 
Q«3$ 
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T506 MOVB TEST - SMI/ DM7 - SRC ADR ODD / DST ADR EVEN 



3$: 



MOV 
ERROR 



p2),R3 



;GET THE WAS DATA 

;MOVB DELIVERED WRONG RESULT 



I******************* ****•••****« 



;*TEST 507 
• . *********** 

TST507: 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 

BEQ 

MOV 

ERROR 



|507,R0 
fMBuf 0^R2 

Lifts 3 

(R5) 

R3,(R5) 

R4,(R2) 
TST510 

(R2),R3 



;CALL THE SCOPE LOOP UTILITY 

>;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST AODR = MBUFO 

>RESULT S / B = 377 

;R3 CONTAINS SOURCE OP 

;R5 CONTAINS DEST SODR 

; CDF ST 3 = 000000 

;SCOPE SYNC 

jtest the movb 

;result correct ? 
;;br if yes 

;get the was data 

;MOVB DELIVERED THE WRONG RESULT 



..*************************************************************** 

;*TEST 510 MOVB SM0,DM2 TEST 

j. ********************* ***»*» 

TST510: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



2$: 



3$: 



CMP 
BEQ 



MQV 
ERROR 



377, R4 
-1,R3 

r2,R5 

(R2) 




*************************************** 

;C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
JRESULT S / B = 377 
;R3 CONTAINS SOURCE OP 
JR5 CONTAINS DEST ADDR 



>CDEST3 = 000000 
;SCOPE SYNC 

;TEST THE MOVB 

>RESULT CORRECT ? 
>>BR IF YES 

f§§^B T DlL^RgS T « 



HE WRONG RESULT 



..*************************************************************** 

m ****2i ****** 51 ********************** ********* 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #511/R0 ;jLOAD RO WITH TEST NUMBER 

MOV l#2§zRl /LOAD Rl WITH TEST INSTRUCTION WORD 

MQV |fii2F0/R2 JDEST ADDR = MBUFO 

MOV #377/R4 JRESULT S / B = 377 
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9938 
9939 
9940 
9941 

m\ 

9944 
9945 
9946 
9947 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
9955 
9956 
9957 
9958 
9959 
1960 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
9968 
2269 
9970 
9971 
9972 
9973 

i;?t 

9976 
9977 
9978 
9979 
9980 
9981 
9982 
9983 
9984 
9985 
9986 
9987 
9988 
9989 



034406 110335 



034410 
034412 



034414 
034416 



034470 



034532 
034534 



j36 
)40 



020413 
00140' 



011203 
104001 



020412 
001402 

011203 
104001 



177777 
063306 



034420 
034420 
034422 
034426 
034432 
034436 
034442 
034446 
034452 
034454 


000004 
012700 
013701 
012702 
012704 
012703 
012705 
005012 
000257 


000512 
034456 
06|312 

177^7 
063314 


034456 


110345 




034460 
034462 


020412 
001402 




034464 
034466 


011203 
104001 






063314 



034526 110365 177776 
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T511 MOVB SH0/DM3 TEST 



2$: 



MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 
BEQ 

MOV 
ERROR 



#-l,R3 
jATl*10,R5 



R3/9(R5)* 
jR2),R3 



JSOURCE OP IN R3 
;BASE DEST ADDR r ATA+10 
J t DEST 3 = 000000 
JSCOPE SYNC 

>TEST THE MOVB 

;RESULT CORRECT ? 
;;BR IF YES 

JGET THE MAS DATA 
;HOVB DELIVERED THE WRONG RESULT 



••**•**•**• • **•*****••***•••••*• ******************************* 



3$: 

>*TEST 512 MOVB SM0 4 DM4 TEST 

• • ******************************************************** 

TST512: 



******* 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 
BEQ 

MOV 

ERROR 



{512,R0 

|MBOF0<R2 
|177400,R4 

CR2) 



R3,-(R5) 

R4,(R2) 
TST513 

JR2),R3 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
JRESULT S / B = 177400 
;R3 CONTAINS SOURCE OP 
/BASE DEST ADDR = MBUF0+2 
/CDEST3 = 000000 
; SCOPE SYNC 

;TEST THE MOVB 

/RESULT CORRECT ? 
;;BR IF YES 

/GET THE WAS DATA 

>MOVB DELIVERED THE WRONG RESULT 



► ************ ****** ************* 



••*****•****••••****•*•*•*•**•*****•••**•*******• ************* 

TEST 513 MOVB SMQ<DM6 TEST 

.,** ******************** **********i 

TST513! 

/CALL THE SCOPE LOOP UTILITY 
J513,R0 ;;LOAD RO WITH TEST NUMBER 

Si2li-Rl >LOAD Rl WITH TEST INSTRUCTION WORD 

IMBUF0 < R2 /DEST ADDR = MBUFO 

|377,R4 ;RESULT S / B = 377 

I-1/R3 >R3 CONTAINS SOURCE OP 

|}MBUF0+2,R5 /BASE DEST ADDR = MBUF0+2 

<R2) ;CDEST3 = 000000 

;SCOPE SYNC 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOVB 

CMP 
BEQ 

MOV 
ERROR 



R3,-2(R5) 

R4,(R2) 
TST514 



;TEST THE MOVB 



;result correct ? 
;;br if yes 



2),R3 



/GET THE WAS DATA 

JMOVB DELIVERED THE WRONG RESULT 
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9990 
9991 



mi 

9996 

2W 
9998 
9999 
10000 
10001 
10002 

w 

10007 
10008 
10009 
10010 
10011 

18813 

10014 

PI 
10017 
10018 

urn 
m\\ 

u 

f 

[0029 
L0030 

8831 

10033 
[0034 
135 

if* 

>40 

m 



[0043 
L0044 
L0045 



mm 

034544 
934550 
034554 
034560 
034564 
034570 
034572 



03461C 
034612 



034656 
034660 
034662 
034664 



000004 

0jL2700 0005^4 

012705 125252 
012703 052525 
000257 
000267 



034574 050503 



034576 
034600 
034602 
034604 



100003 
001402 
102401 
103401 



034606 104002 



020403 
001401 



034614 104002 



034616 
034616 
034620 
034624 

034630 
034636 
034640 
034642 
034644 
034646 
034650 
034652 



034654 050503 



000004 

mm mi 

032737 002000 063234 

001401 

000000 

005004 

005005 

005003 

000257 

000270 



L00403 
301002 
102401 
[03001 



034666 104002 
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** ************ **************** ************ ******** ****** ******* 
TEST 514 



;^TEST 514 BIS TEST - SM0,DM0 - N:C = 0111 

j . *********************************************** 

TST514: 



**************** 



2$: 



3$: 
4$: 

5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

BIS 

BPL 
BEQ 
BVS 
BCS 



CMP 
BEQ 



|514,R0 

112§252,R5 
152525,63 



R5,R3 

3$ 
3$ 
34 
4 J 



R4,R3 
TST515 



/CALL THE SCOPE LOOP UTILITY 
>}LOAD RO WITH TEST NUMBER 
7 LOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = 177777 
>SRC OPR = 125252 
JCDEST3 = 52525 
/CLEAR FLAGS 

;n:c = 0111 
;test the bis 
;n:c = 1001 ? 



;BIS FAILED TO ALTER CODES PROPERLY 

>CORRECT RESULT ? 
;;BR IF YES 

;8IS DELIVERED THE WRUNG RESULT 



. . ********************* ******** ******* ****** ********** *********** 

;*TEST 515 BIS TEST - SMO t DMQ - N:C = 1000 

*********** ** ************** ************************* *********** 

T5T515: 

SCOPE /CALL THE SCOPE LOOP UTILITY 



MOV 
MOV 



515,R0 



. „ . - //LOAD RO WITH TEST NUMBER 

»#2S#R1 /LOAD Rl WITH TEST INSTRUCTION WORD 

.SBTTL USER CONTROLLED BREAKPOINT — BIT10 



034670 
034672 



020403 
001401 



2$; 



3$: 
4$: 



BIT 
BEQ 
HALT 
CLR 
CLR 
CLR 
CCC 
SEN 

BIS 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 



#BIT10/§#BPTLOC BREAKPOINT HALT SET ?? 



•+4 

R4 
R5 
R3 



R5,R3 

3$ 
3? 

3$ 
4$ 



R4,R3 
TST516 



)BR IF NOT 
7 BREAK-DEPRESS CONTINUE TO CONTINUE 

;result s / b = oooooo 

;SRC OPR = OOOOOO 
;CDEST3 = 000000 
/CLEAR FLAGS 

;n:c = looo 

;TEST THE BIS 

;n:c = oioo 



;BIS FAILED TO ALTER CODES PROPERLY 



jcorrect result ? 
;;br if yes 
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9048 
$049 



006 

mi 

0065 
0066 
0067 

8o69 
0070 

m 

P 

mi 

0077 
0078 

mi 
m\ 

0083 
0084 
0085 
0086 
0087 
,0088 
.0689 
.0090 
.0091 
.0092 
0093 
0094 



034674 104002 



034676 




100003 
001402 
102401 
103401 



034742 104002 



034744 
034746 

034750 



034752 
034752 
034754 
034760 
034764 
034766 
034770 
034772 
034774 



034776 040503 

035000 100403 

035002 001002 

035004 102401 

035006 103001 



020403 
001401 

104002 

000004 
012700 
013701 
005004 
005005 
005003 
000257 
000270 



000517 
034776 



5$: ERROR 2 JBIS DELIVERED THE WRONG RESULT 

A***************** ************** ***************** 

****** ***21******* ************* 



• ; ** 51 **"J ******* 
TST516: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 



2$: 



3$: 
4$: 

5$: 



BIC 

BPL 
BEQ 
BVS 
BCS 



CMP 
BEQ 



ERROR 



I516/R0 
#2S/R1 
WK 
-1,R3 

R5,R3 

3S 
35 
3$ 
4$ 

2 

R4/R3 
TST517 



R5 B4 



;C ALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

/RESULT S / B = 100000 

JSRC OPR = 77777 

JCDEST3 * 177777 

; CLEAR FLAGS 

>N:C = 0111 

;test the bic 
;n:c = 1001 ? 



JBIC FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
>}BR IF YES 

JBIC DELIVERED THE WRONG RESULT 



. - *********** **••***•••*****••*•**)>•*•**•****•*•****•* 

; 4 TEST 517 BIC TEST - SMO/DMO - N:C = 1000 

' - j.- ^ -.j.- ********** **** ****** *********** 



.>**•*«*** ************** ****** 

T5T517 



2S/R1 



2$: 



SCOPE 




MOV 




MOV 


i! 


CLR 




CLR 


R5 


CLR 


R3 


CCC 




SEN 




BIC 


R5 


BMI 


3$ 


BNE 


3S 


BVS 


3? 


BCC 


4$ 



/CALL THE SCOPE LOOP UTILITY 

;?LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;RESULT S / B = 000000 

;SRC OPR = 000000 

>CDEST3 = 000000 

;clear flags 
;n:c = 1000 

;test the bic 

;n:c = oioo 
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- SMO/DMO - N:C = 1000 




000521 
035126 
125252 
052525 



3$: 
4$: 



5$: 



2$: 



3$: 
4$: 



5$: 



ERROR 



CMP 
BEQ 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

267 

BIT 

BPL 
BEQ 
BVS 
BCS 



CMP 

BEQ 



MOV 

ERROR 



R4,R3 
TST520 



?BIC FAILED TO ALTER CODES PROPERLY 

/CORRECT RESULT ? 
JJBR IF YES 

>BIC DELIVERED THE WRONG RESULT 

t ****** ************* ****** 



|520,R0 
lfo^6oO/R4 

hoc 

hoc 



;call the scope loop utility 
;;load ro with test number 
jload rl with test instruction word 
>result s / b = 100000 

)00/R5 ;SRC OPR = 100000 

5O0/R3 ;CDEST3 = 100000 

>CLEAR FLAGS 
>N:C = 0111 

R5/R3 ;TEST THE BIT 

3S ;N:C = 1001 



2 ;BIT FAILED TO ALTER CODES PROPERLY 

R4/R3 ;CCRRECT RESULT ? 

TST521 J>BR IF YES 

(R2)/R3 ;GET THE WAS DATA 

2 ;BIT DELIVERED A RESULT 



** ************************************************************* 



;*TEST 521 
• • ******** 

T5T521: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

SEN 



BIT TEST - SMO/DMO - H:C = 1000 
** * *********************** ************ 



******** ********* 



#521/R0 

ft#2S/Rl 

fl25252/R4 

I52525/R5 

ft4,R3 



/CALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

/RESULT S / B = 125252 

;SRC OPR = 52525 

;CDEST3 = 125252 

/CLEAR FLAGS 

?N:C = 1000 



2$: 



BIT 

BMI 
BNE 
BVS 
BCC 



;TEST THE BIT 

jn:c = oioo 
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10167 03517 

10168 03517 

10169 03517 
" )17C 

M 



10151 
10152 
10153 
10154 
I015S 
10156 
10157 
10158 

mn 
mu 
mn 

10165 
10166 
]167 

[0. . 
L0170 
10""" 

Jo 

10 

10174 
10175 

1017.$ 

10177 

10178 

10179 

10180 

10181 

10182 

101B3 

10184 

10185 

10186 

10187 

10188 

10189 

10190 

10191 

10192 

10193 

10194 

1019 

1019 

1019 

1019 

1019 

1020 

1020 

1020 

1020 

1020 

1020 

10206 



035140 104002 



035142 
035144 



035150 
035150 
035152 
035156 
035162 
035166 
035170 
035174 
035176 

035200 

035202 
035204 
035206 
035210 



035214 
035216 



035222 
035222 
035224 
035230 
035234 
035240 
035244 
035246 
035250 



035254 
035256 
035260 
035262 



020403 
001401 



035146 104002 



000004 

P8? 

012704 
005005 

mm 

000266 

020503 

100003 
001402 

mm 



035212 104002 



020403 
001401 



035220 104002 



000004 
012700 
013701 
012704 
012705 
010403 
000257 
000272 



035252 020503 



100403 
001002 
102401 
103001 



000522 
035200 
000001 



000523 

1?7^7? 
177777 



T521 
3$: 
4$: 

5$: 

it; 



15-NOV-78 
• SH0/DM0 - 



ERROR 



CMP 
BEQ 



ERROR 



2 

R4,R3 
TST522 

2 
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n:c = iooo 

;bit failed to alter codes properly 
jcorrect result ? 

;>BR IF YES 

;BIT DELIVERED A RESULT 



i******* ************ ******* ****** ************** ******** ********* 
, TEST 522 CMP TEST - SH0,DMQ - M:C = QUO 

• • A*************************************** ************ •***•**•**• 

TST522: 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 
>LOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = +1 
;SRC OPR = 000000 
JCDEST] = +1 



SCOPE 
MOV 
MOV 
MOV 
CLR 
MOV 



2$: 



3$: 
4$: 

5$: 



sss 

CMP 

BPL 
BEQ 
BVS 

BCS 

ERROR 

CMP 

BEQ 

ERROR 




R5,R3 

3$ 
3S 
3$ 
4$ 

2 

R4,R3 
TST523 

2 



;CLEAR FLAGS 
;n:c = 0110 

;TEST THE CMP 

>N:C = 1001 



;CMP FAILED TO ALTER CODES PROPERLY 

JCORRSCT RESULT ? 
JJBR IF YES 



035264 104002 



>»TEST 

<;**** 

TST523 



2$: 



3$: 



;CMP DELIVERED A RESULT 

**************< 

CMP TEST - SMO/DMO - N:C = 1010 
*********************************************************** 



• *************************************************************** 

"TEST 523 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

272 

CMP 

BMI 
BNE 
BVS 
BCC 



#523, RO 

I-1/R4 

R4,&3 



R5,R3 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

JRESULT S / B = 177777 

;SRC OPR = 177777 

JCDESTJ = 177777 

/CLEAR FLAGS 

>N:C = 1010 

;TEST THE CMP 

>N:C = 0100 



;CMP FAILED TO ALTER CODES PROPERLY 
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10207 
10208 
10209 
10210 

mw 

10213 
10214 

We 

10217 
oil 

J0224 
10225 
10226 

|o230 
10231 
10232 
10233 
10234 



?35 
L0236 
L0237 
L0239 
[Q239 
0240 
0241 
0242 
L0243 

L0245 
[0246 
L0247 
[0248 



49 
>50 
?51 

IS2 

E '4 
255 

_ 258 
10259 

mn 

10262 



035266 
035270 



035274 
035274 
035276 
035302 
035306 
035312 
035316 
035322 

035324 

035326 

811318 

035334 

035336 

035340 
035342 



035346 
035346 
035350 
035354 
035360 
035364 
035370 
035374 
035400 
035402 



035406 
035410 
035412 
035414 

035416 

035420 
035422 



320403 
301401 



035272 104002 



000004 
012700 
013701 
012704 
012705 
012703 
000257 

020503 

100403 
001402 
102001 
103001 

104002 

020403 
001401 



035344 104002 



000004 
012700 
013701 
012702 
012704 
12705 

.\m 

000267 



035404 050512 



100003 
00J402 
102401 
103401 

104001 

020412 
001402 



000524 
035324 
000001 
100000 
000001 



000525 
035404 

125252 
052525 



4$: 

5$: 



CMP 
BEQ 



R4,R3 
TST524 



15:26 PAGE 190 
!»:C = 1010 



jcorrect result ? 
;;br if yes 



ERROR 2 

***************** ******** 

. TEST 524 CMP TEST 

j j *********** ************** 

TST524 



;* 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CMP 

BMI 
BEQ 
BVC 
BCC 



CMP 

BEQ 



ERROR 



1524, RO 
+1,R4 
100000, R5 
♦ 1,R3 

R5,R3 

3$ 
3S 

3| 
45 



R4,R3 
TST525 



JCMP DELIVERED A RESULT 
************************************** 

SMO.DMO - H'.C = 0000 

************************************** 

/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 



RC OPR = 100000 



**************** ********* 

EST 525 BIS TEST - 

************************ 



;*TEST 525 
> • ***** ■ - - 

TST525: 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

BIS 

BPL 
BEQ 
BVS 
BCS 



CMP 

BEQ 



#525, RO 

ISi^f oJr2 
-1,R4 
125252, R5 
52525,(R2) 



R5,(R2) 



R4,(R2) 
TST526 



JRESULT S / B = 

JCDEST3 = +1 
;CLEAR FLAGS 

;TEST THE CMP 

JN:C = 0010 



;CMP FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT ? 
JjBR IF YES 

;CMP DELIVERED A RESULT 
************************************** 

SM0,DH1 - N:C = 0111 

a**************** ******** ***•*••••**•* 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST A DDR = MBUFO 
JRESULT S / B = 177777 
;SRC OPR = 125252 
JCDEST3 = 52525 
JCLEAR FLAGS 
;n:c = 0111 

;TEST THE BIS 

;n:c = 1001 



;BIS FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT ? 
;>BR IF YES 
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035424 
035426 



011203 
104001 




10318 



100003 
001402 
102401 
103401 



035554 104001 



5$: 



MOV 

ERROR 



p2)/R3 



J GET THE HAS DATA 

;B1S DELIVERED THE WRONG RESULT 



******************* ********* ************** ************ ********* 



;*TEST 526 
• • ******** 

TST526: 

SCOPE 



2$: 



3$: 
4$: 



MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
CCC 
SEN 

BIS 

BMI 
BNE 
BVS 
BCC 



CMP 
BEQ 




)C ALL THE SCOPE LOOP UTILITY 
; JLOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 



MOV 
ERROR 



R5,(R2) 



|R2),R3 



;DEST ADDR = MBUFO 
; RESULT S / B = 0(50000 
;SRC OPR = 000000 
>CDEST3 - 000000 
;CLEAR FLAGS 
>N:C = 1000 

/TEST THE BIS 

)N:C = 0100 



;BIS FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
;;BR IF YES 

/GET THE WAS DATA 
;BIS DELIVERED THE WRONG RESULT 



5$ 

a.**************************** ************** ********** *********** 

;*TEST 527 BIC TEST - SM0,DM1 - »:C = 0111 

********************** ********* ************* ************ ********* 

T5T527: 

; C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
/RESULT S / B = lOOQ^IJ 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

BIC 

BPL 
BEQ 
BVS 
BCS 



|527,R0 
iMBOF0 t R2 

1-1, <R2) 



in 



R5,(R2) 



>SRC OPR 
;CDEST3 = 177777 
;CLEAR FLAGS 
;N:c = 0111 

;TEST THE BIC 

;N:C = 1001 



;BIC FAILED TO ALTER CODES PROPERLY 
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10319 
10320 

\%\\\ 

"23 




mn 

813} 

0373 
10374 



035636 
035640 



020412 
001402 



011203 
104001 




035700 030512 



035702 

Pol 

035710 



100003 

mm 

103401 



J0531 
J570Q 
>3312 
>0000 
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4$: CMP 
BEQ 



15-NOV-78 
- SM0/DM1 - 



R4,(R2) 
TST530 
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n:c = 0111 



;correct result ? 
;;br if yes 



5$: 



MOV fR2),R3 
ERROR i 



;GET THE WAS DATA 

;BIC DELIVERED THE WRONG RESULT 



i ** **** ******** ************* 



<!*S*****2 

TST530: 

SCOPE 

MOV 

MOV 

MOV 

CLR 

CLR 

CLR 

CCC 

SEN 



******* 



*********************************** 

IC TEST - SM0/0M1 - N:C = 1000 
******* ************************ 



2$: 



3$: 
4$: 



5$: 



BIC 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



#5|0,R0 

PB0F0/R2 
K4 

R5 
(R2) 



R5,(R2) 



(*••••**** ********* 

;C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
jLOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
— = 000000 



R4,(R2) 
TST531 

p2)/R3 



JRESULT S / 
;SRC OPR = 
;CDEST3 = 
/CLEAR FLAGS 
?N:C = 1000 



;TEST THE BIC 
;N:C = 0100 



JBIC FAILED TO ALTER CODES PROPERLY 

/•CORRECT RESULT ? 
;;BR IF YES 

;GET THE WAS DATA 

>BIC DELIVERED THE WRONG RESULT 



?*TEST 531 
. . ********* 



BIT TEST - SM0,DM1 - N:C = 0111 

, j ********************************************* 

TST531: 



******* •******••*• 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

BIT 

BPL 
BEQ 
BVS 
BCS 



#531, RO 

f$Buf t R2 
#100000,R4 

flMo;fR 2 > 



;C ALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
>DEST ADDR = MBUFO 

~ = 100000 





JRESULT S 
;SRC OPR 
;CDEST3 = 1 
>CLEAR FLAGS 
;N:C = 0111 



JTEST THE BIT 
;N:C = 1001 
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0375 

0378 
0379 
80 
,81 

-\~ 

J\ 
0385 
0386 
0387 
0388 
0389 
0390 
0391 

olli 

0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 

m 

0410 
0411 

84 4 H 

0414 

Ml? 

0417 
0418 

n$ 

0425 
0426 
0427 
0428 
0429 
0430 



035712 104001 



035714 
035716 

035720 
035722 



035724 
035724 
035726 

mm 

035742 
035746 
035752 
035756 
035760 



035764 
035766 
035770 
035772 



035776 
036000 



036002 
036004 



036046 
036050 
036052 
036054 



mm 
mm 



000004 

811981 

012702 
012704 

mm 

000257 
000270 



035762 030512 



100403 
001002 
102401 
103001 



035774 104001 



020412 
001402 



011203 
104001 



036006 

8i*m 

036014 
036020 

83*83* 

036034 
036040 
036042 

036044 020512 



000004 
012700 
013701 
012702 

liM 

012712 
000257 
000272 



100403 
001002 
102401 
103001 



mil 

063312 
052525 

mm 



000533 
036044 
063312 

WW 

mm 



3$: 
4$: 



5$: 



ERROR 



CMP 

BEQ 



MOV 
ERROR 



R4,(R2) 
TSTS32 

£R2),R3 



JBIT FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
>>BR IF YES 

;get the has data 

jbit delivered a result 



• • *************************************************************** 

>*TEST 532 BIT TEST - SM0»DM1 - N:C = 1000 

••A****************** ******* ******** *•***•*{*•< 

TST532! 

;CALL THE SCOPE LOOP UTILITY 



****** ******* ******* 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
SEN 

BIT 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 



5$ 

^ISfI*§^. 



»532,R0 

|52525,R4 
|l 25252, R5 
f52525 / IR2) 



R5,(R2) 

3? 

3$ 
3$ 
4$ 



R4,(R2) 
TST533 

(R2),R3 



MOV 
: ERROR 

************** 2******* *••• 



;>LOAD R0 WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
;RESULT S / B = 52525 
;SRC OPR = 125252 
JCDEST3 = 52525 
/CLEAR FLAGS 
;N:C = 1000 

;TEST THE BIT 

;N:C = 0100 



;BIT FAILED TO ALTER CODES PROPERLY 

;C0RRECT RESULT ? 
;;BR IF YES 

;GET THE WAS DATA 
JBIT DELIVERED A RESULT 
**************** ********** *********** 



TST533: 



,*SSU£SI*;.§8S*8S**;**i£*i*1212. 



***************** 



2$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

272 

CMP 

BMI 
BNE 
BVS 
BCC 



|533,R0 

|-1,R4 
I-1/R5 
1-1, (R2) 



R5,(R2) 



JCALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

/DEST ADDR = MBUFO 

;RESULT S / B = -1 

>SRC OPR = 177777 

JCDEST3 = 177777 

}CLEAR FLAGS 

;n:c = 1010 

/TEST THE CMP 

;n:c = 0100 
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0431 
0432 
0433 
0434 
0435 
0436 
0437 

m 

0440 
0441 
0442 

8144 
0445 
0446 
0447 
0448 
0449 
0450 

Mil 

0453 
0454 
0455 

Iw 

0458 
0459 



036056 104001 



036060 
036062 



036064 
036066 



J6070 

km 



oilli: 

036114 

83*132 



036126 
036130 
036132 
036134 



036140 
036142 



020412 
001402 



011203 
104001 



000004 

012700 000534 



8Pj 

012704 
005005 

012712 000001 



66 



036124 020512 



100003 
001402 
102401 
103401 



036136 104001 



020412 
"01402 

011203 
104001 




SIP 

000001 



000535 

mm 

000001 

loogoo 
000001 
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T533 CMP TEST - SM0/DM1 - N:C = 1010 



3$: 
IS: 



ERROR 



5$: 



CMP 
BEQ 



MOV 
ERROR 



> *********** 



TS 



R4,(R2) 
TST534 

JR2),R3 

************* 

CMP TEST - 
************* 



T534: 



3$: 
4S: 

5$: 
I* 



SCOPE 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

m 

CMP 

BPL 
BEQ 
BVS 
8CS 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



I534,R0 
oJr2 
+ 1,R4 

#*1,(R2) 



R5,<R2) 

3£ 
35 
3$ 
4$ 



R4,(R2) 
TST535 

(R2),R3 



;CMP FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT ? 
;;BR IF YES 

;GET THE WAS DATA 
}CMP DELIVERED A RESULT 

******** ********** ************ ********* 

SM0,DM1 - N:C = 0110 
****************************** ********* 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
>DEST ADDR = MBUFO 
>RESULT S / B = +1 
;SRC OPR = 000000 
>CDEST3 = +1 
/CLEAR FLAGS 
;n:c = 0110 

;test the cmp 
;n:c = 1001 



>CMP FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
;;BR IF YES 

/GET THE WAS DATA 

>CMP DELIVERED A RESULT 



*************************************************************** 



T535: 



2$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

CMP 

BMI 
BEQ 
BVC 



(535, RO 

Mho]*? 

il00OOQ#R5 
»+l,<R2> 



R5,(R2) 

3S 
3S 
3? 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

JRESULT S / B = *1 

;SRC OPR = 100000 

;CDEST3 = +1 

>CLEAR FLAGS 

;TEST THE CMP 

;N:C = 0010 
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0518 

8IJ8 
ffil 

mi 

.0525 
.0526 
.0527 
.0528 
.0529 
0530 

mi 

0533 
0534 
0535 
0536 
0537 
.0538 
.0539 
0540 



036274 104002 



0403 
1401 



83*63*00 U 



036302 104002 



036304 
036304 
036306 
036312 
036316 
036320 
036324 
036326 
036330 



000004 

012700 000537 
013701 036332 
005004 



012705 
005003 
000257 
000270 



036332 051503 



100403 
301002 
L02401 
[03001 



mm 

036340 
036342 



063322 
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PAGE 195 
0000 



3Si 
4$: 



5$: 



BCC 
ERROR 



CMP 

8EQ 



MOV 
ERROR 



4$ 



R4,(R2) 
TST536 

(R2),R3 



>CMP FAILED TO ALTER CODES PROPERLY 

;C0RRECT RESULT ? 
>;br IF YES 

;get the was data 

;cmp delivered a result 



U ************** ******************** ******************** ********* 
, TEST 536 
j. ****** - 

TST536: 



BIS TEST - SM1*DM0 
.************ ********** *«****»«**i 



2$; 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

BIS 

8PL 
BEQ 
BVS 
BCS 



CMP 
BEQ 



|536,R0 



(R5),R3 



R4,R3 
TST537 

2 



>CALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 177777 
>SRC ADDR = DWTA+10 
JCDEST3 = 52525 
/CLEAR FLAGS 
;N:c = 01.11 

>TEST THE BIS 

;n:c = 1001 



JBIS FAILED TO ALTER CODES PROPERLY 



;CORRECT RESULT ? 
;;BR IF YES 



5$: ERROR 2 ;BIS DELIVERED THE WRONG RESULT 

*************************************************************** 

000 

********************* 



;*TEST 537 
. . ******** 

TST537: 

SCOPE 



2$: 



MOV 
MOV 
CLP 
MOV 
CLR 
CCC 
SEN 

BIS 

BMI 
flNE 
BVS 
BCC 




(R5),R3 

3S 

3$ 
4$ 



;CALL THE SCOPE LOOP UTILITY 

;?LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

/RESULT S / B =000000 

;SRC ADDR = DWTA 

;CDEST3 = 000000 

JCLEAR FLAGS 

?N:C = 1000 

?test the bis 
;n:c = 0100 
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036344 104002 



036346 
036350 



020403 
001401 



104002 




000540 
036412 
100000 
063316 

mm 



000541 
036462 



063322 
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T537 BIS TEST - SM1,DM0 - N:C = 1000 



3$: 
4$: 



5$: 



CMP 
BEQ 



ERROR 



R4,R3 
TST540 



JBIS FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT ? 
;;BR IF YES 

;BIS DELIVERED THE WRONG RESULT 



.*************************************************************** 

, *TEST 540 BIC TEST - SM1,DM0 - N:C = 0111 

• • *************************************************************** 

TST540: 

;CALL THE SCOPE LOOP UTILITY 

;>LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 100000 

7 J 



2$: 



3$: 
4$: 

5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

BIC 

BPL 
BEQ 
BVS 
BCS 



CMP 

BEQ 



ERROR 



8540, RO 

»fo§6oO,R4 
fMBUFl/R5 



!-l« R 3" /CDEST3 = 177777 

\ni*n1,{*5) 



>SRC ADDR = MBUF! 



(R5),R3 
35 

i 

4$ 

2 

R4.R3 
TST541 



;SRC OPR = 77777 
JCLEAR FLAGS 
;N:C = 0111 

JTEST THE BIC 

>N:C = 1001 ? 



;bic failed to alter codes properly 

;correct result ? 
;;br if yes 

>bic delivered the wrong result 



,.*************************************************************** 
'I**!*** I BIC . TEST . - SMI, DM0 - N?C . 



****************** ******** 



li*** 



********* 



** 



******* *********** 



rST541: 



2$: 



L0598 



SCOPE 

MOV 

MOV 

CLR 

MOV 

CLR 

CCC 

SEN 

3IC 

BMI 

BNE 
BVS 
BCC 




/CALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

;RESULT S / B = 000000 

;SRC ADDR = DWTA 

>C0EST3 =000000 

JCLEAR FLAGS 

>N:C = 1000 

JTEST THE BIC 

;N:C = 0100 
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10599 036474 104002 



10620 
10621 
10622 
10625 
10624 
10625 
10626 
10627 
10628 
106 29 
10630 
10631 
10632 
10633 
10634 
10635 
10636 
10637 
10639 
10639 
10640 
10641 
10642 
10643 
10644 
10645 
10646 
10647 
10648 
10649 

}0650 
0651 
0652 
0653 
10654 



036476 
036500 



036550 
036552 



036556 
036556 
036560 
036564 
036570 
036574 
036600 
036602 
036604 



020403 
001401 



036502 104002 



036534 031503 



036536 
036540 
036542 
036544 



100003 
001402 

mm 



036546 104002 



020403 
001401 



036554 104002 



312705 
010403 
000257 
■)270 



ooo; 



036606 031503 



036610 
036612 
036614 
036616 

036620 



100403 
001002 
102401 
103001 

104002 



000542 




000004 

012700 000543 

013701 036606 

012704 052525 



063332 
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T541 BIC TEST - SM1,DM0 - H:C = 1000 



SEQ 0196 



3$: 
4$: 



CMP 
BEQ 



R4,R3 
TST542 



>BIC FAILED TO ALTER COOES PROPERLY 

;CORRECT RESULT ? 
;>BR IF YES 



5$: ERROR 2 >BIC DELIVERED THE WRONG RESULT 

• • *************************************************************** 

;»TEST 542 BIT TEST - SH1#DM0 - N:C = 0111 

• • ******* ********************************************* *********** 

TST542! 



2$: 



3$: 
4$: 

5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 

ss$ 

BIT 

BPL 
BEQ 
BVS 
BCS 



CMP 

BEQ 



ERROR 



J542/R0 

if^SfioJ,! 
|DWTA+2,f 
*4,R3 



(R5),R3 

3$ 
3$ 

2 

R4,R3 
TST543 

2 



>CALL THE SCOPE LOOP UTILITY 
JiLOAD RO KITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 100000 
;SRC ADDR = DWTA+2 
>CDEST3 = 100000 
/CLEAR FLAGS 
>n:c = 0111 

;TEST THE BIT 

>N*.C = 1001 ? 



;BIT FAILED TO ALTER CODES PROPERLY 

;CORRECT RESULT ? 
;;BR IF YES 

>BIT DELIVERED A RESULT 



*********** ***************** ******* *********** ****** *********** 
J*TEST 543 BIT TEST - SMI, DM0 - »:C = 1000 

• • ****** ***** *************************************** ** ***• ******* 

TST543: 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;RESULT S / B = 52525 
;SRC ADDR = DWTA+10 
JCDEST3 = 52525 
;CLEAR FLAGS 
;N:C " 1000 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

SEN 



|543,R0 

*DWTA+10,R5 
*4,R3 



2$: 



3$: 



BIT 

BMI 
BNE 
BVS 
BCC 



<R5),R3 

3$ 
35 
3$ 
45 



>TEST THE BIT 
;N:C = 0100 



;BIT FAILED TO ALTER CODES PROPERLY 
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036622 
036624 



036630 

mm 

036636 
036642 



03665 
036656 

036660 

036662 

mm 

036670 

036672 

036674 
036676 



036702 
036702 



-*-.10 
036714 
036720 

ifflit 

036730 



036734 
036736 
036740 
036742 



020403 
001401 



036626 104002 



000^g4 





0_, 
01270 



01370^ 



im urn 

6654 00025 



Ofl 

000566 
021503 
100003 

mm 

103401 

104002 

020403 
001401 



036700 104002 



036732 021503 



100403 
001002 

18138! 



036744 104002 



036746 020403 
036750 001401 



000544 
036660 
000001 
063322 



000004 

012704 x 

012705 663324 
010403 
000257 
000272 



MACY11 30AU052) 
T543 BIT TEST 



CMP 
BEQ 



15-NOV-78 
- SM1,DM0 - 

R4/R3 
TST544 



15:26 

N:C = 



PAGE 198 
1000 



SEQ 0197 



^correct result ? 
;;br if yes 



5$: ERROR 2 JBIT DELIVERED A RESULT 

.!***«* *************************** 4* ****** *********************** 

;*TEST 544 CMP TEST - SMl^DMO - N:C = 0110 

• j ************************ ********** ****************** *********** 

TST544: 

;C ALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = +1 



2$: 



3$: 
4$: 



5$: 

\l 

fsT545 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
266 

CMP 

BPL 
BEQ 
BVS 
BCS 

ERROR 

CMP 
BEQ 

ERROR 



|544,R0 

|DWTA/R5 
R4,R3 



(R5),R3 
3S 

n 

4$ 
2 

R4.R3 
TST545 

2 



;SRC ADDR = DWTA 
;CDEST3 = ♦ ! 
;CLEAR FLAGS 
>N:C = 0110 

;TEST THE CMP 

;N:C = 1001 



;CMP FAILED TO ALTER CODES PROPERLY 

;CORRSCT RESULT ? 
;>BR IF YES 

;CMP DELIVERED A RESULT 



*************************************************************** 

TEST 545 



2$: 



3$: 
4$: 



**•*•*•***•• 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

272 

CMP 

BMI 
BNE 
BVS 
BCC 



CMP TEST - SMI, DM0 - N:C = 1010 
•**••*****••*••**••* ************* 



**** ************** 



CMP 
BEQ 



»545,R0 

ma 1 

|DWTA+2,R5 
R4,R3 



(R5),R3 

3S 
3S 
3? 
4$ 



R4 Z R3 
TST546 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S / B = 177777 
;SRC ADDR = DWTA+2 



;CDEST3 = 177777 
;CLE 



LEAR FLAGS 
?N:C = 1010 



/TEST THE CMP 
;n:C = 0100 



;CMP FAILED TO ALTER CODES PROPERLY 

>CORRECT RESULT ? 
;;BR IF YES 
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036752 104002 



07 



.0730 
0731 

mi 
ra 

m 

VliO 

im 

T 0743 
10744 
0745 
0746 

Ml 

Witt 

0751 



0754 037070 051512 



07_ 

m 

0758 

0761 
0762 



0765 
0766 




037010 021503 



37012 
J7C 



037014 
037016 
037020 



037024 
037026 



037032 

mm 

037040 
037044 
037050 
037054 
037060 
037064 
037066 



037102 

mm 

037110 



100403 
001402 
102001 
103001 



037022 104002 



020403 
001401 



037030 104002 



000004 
012700 
013701 
012702 
012704 
012705 
012712 
000257 
000267 



100003 
001402 
102401 
103401 

104001 

0^14^ 
011203 



000547 
037070 

063332 
052525 
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T545 CMP TEST - SM1/DM0 - H:C = 1010 



5$: 



ERROR 



>CMP DELIVERED A RESULT 



j^************ **************************************** *********** 

****** S*Uf§I*;.m*«.*;...*..*22*- •****•••** ********* 

TST546: 

JCALL THE SCOPE LOOP UTILITY 
> J LOAD RO KITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
>RESULT S / B - +1 
JSRC ADDR = MBUF1 
JCDEST3 = ♦} 
JSRC OPR = 100000 
;CLEAR FLAGS 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CMP 

BMI 

REQ 
BVC 
BCC 



CMP 

BEQ 



ERROR 



|546,R0 
ImBUF1/R5 



>000,(R5) 
(R5),R3 



R4,R3 
TST547 



JTEST THE CMP 
;n:c = 0010 



JCMP FAILED TO ALTER CODES PROPERLY 



jcorrect result ? 
;;br if yes 



JCMP DELIVERED A RESULT 



.**************************************************** *********** 



TST547: 



»$** 



******************** 



BIS SM1/DM1 TEST - N:C = 0111 
********** ******** ************ 



******** *********** 



2$: 



3$: 
4$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

267 

BIS 

BPL 

BEQ 
BVS 
BCS 

ERROR 

CMP 

BEQ 



547/R0 

#2S,R1 

MBUF0,R2 

-1,R4 

DWTA+10/R5 

52525,(62) 



(R5),(R2) 



/CALL THE SCOPE LOOP UTILITY 

J J LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFQ 

;RESULT S / B = 1777777 

JSOURCE ADDR = DWTA+10 

JCDF.ST3 = 052525 

/CLEAR FLAGS 

jn:c = 0111 
;test the bis 
jn:c = 1001? 



;bis FAILED TO alter codes PROPERLY 



(R2)/R3 



/CORRECT RESULT ? 
JJBR IF YES 



;GET THE WAS DATA 
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10767 
10768 
10769 
10770 
10771 

Ira 

10774 
10775 

Ira 

10778 
10779 
10780 
10781 

Mil 

urn 

10786 
10787 
10788 
10789 
10790 



037112 104001 



037114 
037114 
037116 
037122 

mm 

037134 
037140 
037142 
037144 



000004 
012700 
013701 
012702 
005004 
012705 
005012 
000257 
000270 



037146 051512 



037150 
037152 
037154 
037156 



100403 
001002 
102401 
103001 



037160 104001 



100003 
001402 
102401 
103401 



10820 037246 104001 
10821 

10822 037250 020412 



000550 
037146 
063312 

063322 




5$ 

>*TEST550 
• , ******** 



ERROR 



15:26 PAGE 200 
N:C = 0111 

;BIS DELIVERED THE WRONG RESULT 



r************** ******* 

_. T BIS SMl f DMl TEST - N:C = 1000 

. . ******************************************** 

T5T550: 



** ***************** 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
CLR 
MOV 
CLR 
CCC 
SEN 

BIS 

BMI 
BNE 
BVS 
BCC 



CMP 
BEQ 



MOV 

ERROR 




(R5)/(R2) 

3S 
3$ 
35 
45 



R4,(R2) 
TST551 

JR2),R3 



5$: 

• . *****•••**< 

$*TEST 551 BIC SMI, DM1 TEST - N:C = 0111 

••*****• ************* ********* **************** 

TST551 



JCALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBDFO 
>RESULT S / B = 000000 
{SOURCE ADDR = DWTA 
5CDEST3 = 000000 
/CLEAR FLAGS 
;N:C = 1000 

> TEST THE BIS 

>N:C = 0100 ? 



;BIS FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT ? 
J J BR IF YES 

;GET THE WAS DATA 
JBIS DELIVERED THE WRONG RESULT 



a******************* 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
267 

BIC 

BPL 
BEQ 
BVS 
BCS 

ERROR 

CMP 



I551/R0 
1100000^4 
1-1, <r5) 



(R5),(R2) 

35 
4$ 

1 

R4,(R2) 



J CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
JRESULT S / B = 100000 
{SOURCE ADDR = MBUF1 
J CSOURCE3 = 77777 
JCDESTD = 177777 
;CLEAR FLAGS 
JN:C = 0111 

;TEST THE BIC 

;N:C = 1001 ? 



JBIC FAILED TO ALTER CODES PROPERLY 
JCORRECT RESULT ? 
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tog: 
108: 

1081, 
1082< 



1083 
1083 



108^ 
10831 

im\ 

1084g 
10841 

nm 

10844 
10845 
108 4| 
10841 
10848 
10849 
10850 
10851 
10852 
10863 
10854 
10855 
10856 
10857 
10858 
10859 
10860 
10861 
10862 
10863 
10864 
10865 
10866 

lolLa 

10869 
10870 
10871 
10872 
10873 

1X1 

10876 
10877 
10878 



037252 001402 



037254 
037256 



037316 
037320 
037322 
037324 



037404 
037406 
037410 
037412 



011203 
104001 



000004 
012700 
0] 




2705 
.5015 
005012 
000257 
000270 

037314 041512 



100403 
001002 
102401 
103001 



037326 104001 



037330 
037332 



037334 
037336 



037340 
032340 
037342 
037346 
037352 
037356 
037362 
037366 

mm 

037400 



037402 031512 



020415 
00140: 



011203 
104001 



000004 
012700 
013701 
012702 
012704 
012705 
012715 

0^25? 
000270 



100403 
001002 
102401 
103001 



000552 

mm 

063316 



000553 
037402 
063312 
125252 
063316 
052525 
125252 



BEQ 



NOV 
ERROR 



5S 

•« •••*•••*• 

>*TEST 552 
;.********* 



|R2),R3 



;;br if yes 

;get the has data 

;bic delivered the wrong result 



; *•***•**••**••*•*•*****•**•* ************************** ********* 

BIC SM1.DM1 TEST - N:C = 1000 
1 1 >*** *************** ************************ ******* 

TST552: 

;CALL THE SCOPE LOOP UTILITY 

SLOAD RO WITH TEST NUMBER 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
CLR 
MOV 
CLR 
CLR 
CCC 
SEN 

BIC 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 

BEQ 

MOV 
ERROR 



#552, RO 

|Pur^R2 

#MBUF1,R5 



(R5),(R2) 

3? 
3? 
3§ 
4$ 



R4,(R2) 
TST553 

(R2),R3 



fiUUKU KU MX in 1C.D1 nUFIDCK 

/LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
J RESULT S / B = 000000 
;SOURCE ADDR = MBUF1 
;CSOURCE3 = 000000 
;CDEST3 = 000000 
JCLEAR FLAGS 
;n:c = 1000 

JTEST THE BIC 

>N.*C = 0100 ? 



>BIC FAILED TO ALTER CODES PROPEPLY 

JCORRBCT RESULT ? 
;>BR IF YES 

;GET THE WAS DATA 

>BIC DELIVERED THE WRONG RESULT 



c . ******************* **••*•***• *** ** ******** *************** ****** 

>*TEST 553 BIT SM1,DM1 TEST - N:C = 1000 

j. ******************* ************************** 

TST553: 



********* ********* 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
SEN 

BIT 

BMI 
BNE 
BVS 
BCC 



|553,R0 

|#2$,R1 

|MBUF0,R2 

ll25252,R4 

|MEUFl,ft5 

|52525,(R5} 

1125252, (R2) 



(R5),(R2) 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
> RESULT S / B = 125252 
;S0URCE ADDR = MBUF1 
;CSOURCE3 = 052525 
;CDEST3 = 125252 
;CLEAR FLAGS 
;n:c = 1000 

;TEST THE BIT 

;N:C = 0100 ? 
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181i 

10929 



18 



932 
933 
934 



037414 
ol?l20 



104001 

020412 
001402 

011203 
104001 



000004 

012700 000554 
013701 037502 




[0925 037526 



037534 
Q37540 



000004 
012700 
013701 

mm 



037544 01270 

mi mil? 



037560 
037562 



81)025^ 



004000 063234 



000555 
037566 

1 
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3$: 
4$: 



5$: 



CMP 
BEQ 



MOV 

ERROR 



JR2),R3 



;BIT FAILED TO ALTER CODES PROPERLY 

>CORRECT RESULT ? 
>>BR IF YES 

;GET THE WAS DATA 

JBIT DELIVERED A RESULT 



;*TEST 554 
• • *•**••****• 

TST554: 

SCOPE 

MOV 

MOV 

•SBTTL USER C 
BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
MOV 



*********************************** ****** *****•*•••* 

BIT SMI, DM1 TEST - N:C = 0111 
** 



*********** 



I554/R0 

I "" -Rl 



******************************** ******* 



;CALL THE SCOPE LOOP UTILITY 
(LOAD RO WITH TEST NUMBER 



#2$,R1 jLCAD Rl WITH TEST INSTRUCTION WORD 

ONTROLLED BREAKPOINT — BIT11 

#BIT11 / S#BPTL0C BREAKPOINT HALT SET ?? 



.♦4 

#MBUF0,R2 
|l00000.R4 
fMBUFl f R5 



2$: 



3$: 
4$: 



CCC 
267 

BIT 

BPL 
BEQ 
BVS 

3CS 



CMP 

BEQ 



000( 



Mil) 



MOV 

ERROR 



5$: 

• • *********** 

;*TEST 555 
. . ** ********* 

TST555: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 



(R5),(R2) 

3$ 
35 
3S 
45 



R4,(R2) 
TST555 

(R2),R3 



;BR IF NOT 
J BREAK-DEPRESS CONTINUE TO CONTINUE 
/DEST ADDR = MBUFO 
;RESULT S / B = 100000 
; SOURCE ADDR = MBUFl 
>CSOURCE3 = 100000 
;CDEST3 = 100000 
/CLEAR FLAGS 
>N:C = 0111 

;TEST THE BIT 

;n:C = 1001 ? 



>BIT FAILED TO ALTER CODES PROPERLY 



;CORRECT RESULT ? 
>;BR IF YES 



>GET THE WAS DATA 

;BIT DELIVERED A RESULT 



***************************** ****** ****** *********** 

CMP SM1,DM1 TEST - N;C = 1010 

********************** ********! 



I****** ******* ****** 



|555/R0 

1-1, (R5) 
4,(R2) 



;CALL THE 
; iLOAD RC 
;LOAD Rl 

JDEST ADDR = MBUFO. 
; RESULT S / * 
;SOURCE ADL . 
>C SOURCE] = llTt 
;CDEST3 = 177777 
;CLEAR FLAGS 



scope loop utility 
with test number 
>load rj_ with test instruction word 

; result s/ b = 177777 
o6r = 



UF1 
7 
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2S! 



3$: 
4$: 



5$: 



272 
CMP 

BHI 

BNE 
BVS 
BCC 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



(R5),(R2) 



|R2),R3 



>N:C = 1010 
>TEST THE CMP 
;m:c = 0100 ? 

>CMP FAILED TO ALTER COOES PROPERLY 

>CORRECT RESULT ? 
i;BR IF YES 

;GET THE HAS DATA 

;CMP DELIVERED A RESULT 



. . *************************************************************** 

>*TEST 556 CMP SMI, DM1 TEST - N:C = 0110 

J.********************** ******************************** ********* 

TST556: 

JCALL THE SCOPE LOOP UTILITY 

;?L0AD RO WITH TEST NUMBER 
J LOAD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
JRESULT S / B - 000001 
JSOURCE ADDR = MBUF1 
JCSOURCE3 = 000000 
JCDEST3 = 000001 
; CLEAR FLAGS 
;n:c = 0110 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 
266 

CMP 

BPL 
BEQ 
BVS 
BCS 

ERROR 

CMP 

BEQ 

MOV 

ERROR 



»556,R0 

iMBiJf 0,R2 
l+l,R4 
§MBUF1,R5 
IR5 ) 

l*l,CR2) 



<R5),(R2) 

35 

3l 
4$ 



R4,(R2) 
TST557 

JR2),R3 



jtest the cmp 
>n:c = iooi ? 

;cmp failed to alter codes properly 
jcorrect result ? 

>;BR IF YES 

>GET THE WAS DATA 
JCMP DELIVERED A RESULT 



** ******** ******** 



r *** ••***•***• ************************ ******* 
I******************* 



5$: 

I'teST 557 CMP SM1,DM1 TEST - N:C = 0000 
« ,*s ********************************** ********< 

TST557: 

SCOPE ; CALL THE SCOPE LOOP UTILITY 

MOV #557, RO JJLOAD RO WITH TEST NUMBER 

MOV 5#2S,R1 ;LOAD Rl WITH TEST INSTRUCTION WORD 

MOV IMBUF 0,R2 JDEST ADDR = MBUFO 

MOV |*1, R4 JRESULT S / B = 000001 



CQKDA-C 
CQKDAC.P 

.0993 
.0994 
.0995 
.0996 
,0997 
.0998 
0999 

188? 

03 
_3o4 
L005 
306 

So? 



[018 

I? 
20 



I02< 
021 



Ml 

\m 

034 

"15 



539 
340 
1041 

\4 

046 



KD11-K B 
11 07 

037720 
037724 
037730 
037734 
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037740 
037742 
037744 
037746 

037750 

037752 
037754 

037756 
037760 



81? 

HI 

.014 037762 
015 037762 

018 037774 



40000 
40004 
40006 



040012 
040014 



012705 

81 2? J 2 
000257 



037736 021512 



100403 
001402 
2001 
)001 



102 

104001 

020412 
001402 

011203 
104001 



000004 

8188' 

01270 

811Z8 

00025 



040010 151503 



020403 
001401 



040016 104002 



040020 
40020 

.mil 
9 mti 
.mn 

040050 



040052 151512 

040054 020412 
040056 001402 



000004 

8H?8J 

012702 
OOO2P 



063316 



3377 



8H.. 

0003' 
064631 



000561 
040052 

O0H3}? 
064631 



2$! 



3$: 
4$i 



5$: 



MOV 
MOV 
MOV 
CCC 

CMP 

BMI 
BEQ 
BVC 
BCC 

ERROR 

CMP 
BEQ 

MOV 
ERROR 



SMBUFURS 
100000,(R5) 
♦1,(R2) 



(R5),(R2) 



R4,(R2) 
TST560 

p2),R3 



15:26 PAGE 204 
N:C = 0000 

;SOURCE ADDR = MBUF1 
JCSOURCE3 = 000000 
JCDEST3 = 000001 
;CLEAR FLAGS 

/TEST THE CMP 

;n:c = 0010 ? 



;CMP FAILED TO ALTER CODES PROPERLY 

JCORRECT RESULT ? 
JJBR IF YES 

;GET THE WAS DATA 

JCMP DELIVERED A RESULT 



J J *************************** IT WW MM WWW WWW 

;*TEST 560 BISB SMUDMO TEST - SOURCE ADDR ODD 

..**^w ****************************** **************** 

TST560 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

BISB 

CMP 

BEQ 

ERROR 



#560, RO 

#DBTA+1,R5 

R3 

(R5),R3 

R4,R3 
TST561 



;C ALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
jLOAD Rl WITH TEST INSTRUCTION WORD 
JRESULT S 7 B = 377 
; SOURCE ADDR = DBTA+1 
JCDESTD = 000000 
;SCOPE SYNC 

JTEST THE BISB 

JRESULT CORRECT ? 
JJBR IF YES 

;BISB DELIVERED THE WRONG RESULT 



3$: 

••**•••** ******************************************************** 

;*TEST 561 BISB SMI, DM1 TEST - SOURCE ADDR ODD 

• « *************************************************************** 

TST561: 

/CALL THE SCOPE LOOP UTILITY 

J ; LOAD RO WITH TEST NUMBER 
jLOAD Rl WITH TEST INSTRUCTION WORD 
JDEST ADDR = MBUFO 
5 RESULT S / B = 377 
JSOURCE ADDR = DBTA+1 
JCDEST3 = 000000 
; SCOPE SYNC 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 



lime 2 

|DBTA+1,R5 
[R2> 



2$: 



BISB 



CMP 
BEQ 



(R5),(R2) 

R4,(R2) 
TST562 



;TEST THE BISB 



;CORRECT RESULT 
;;BR IF YES 
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011203 
104001 




062 
063 
064 
065 
066 
067 

8*1 

070 
071 
.072 
.1073 
11074 
11075 
11076 

HO 77 
078 

li 

11082 
11083 
11084 
11085 
11086 

mil 
mil 

11091 
11092 
11093 
11094 
11095 
J1096 

11038 
110 



040120 151523 



040122 
040124 



040126 
040130 



040132 



020412 
001402 



011203 
104001 




012703 
000257 



040170 151533 



040172 
040174 



040176 
040200 



020412 
00140* 



011203 
104001 



000004 



063306 
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3$: 



NOV 
ERROR 



[R2),R3 



JGET THE WAS DATA 

;BISB DELIVERED THE WRONG RESULT 



;»••••******• 

;*TEST 562 
••*3 ********* 

T5T562: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 

BISB 



**************************************************** 

BISB SM1.DM2 TEST - SOURCE ADDR ODD 
******** ***S»**I **%*•**•«**•* •••*******< 



2$: 



CMP 
BEQ 



MOV 
ERROR 



3$: 

; *********** 



#562, RO 

fMBui 0,R2 
#377, R4 
$DBTA+1,R5 

R2,R3 

(R5),(R3)+ 

R4,(R2) 
TST563 

(R2),R3 



k******** ****** 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

>LOAD Rl WITH TEST INSTRDCTIOH WORD 

>DEST ADDR = MBUFO 

;RESULT S / B = 377 

;SOURCE ADDR = DBTA+1 

>CDEST3 = 000000 

;DEST ADDR IN R3 

; SCOPE SYNC 



?*TEST 563 
• . ****** " ' 

TST563: 



******** 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 



;TEST THE BISB 

>CORRECT RESULT 
>;BR IF YES 

;GET THE WAS DATA 
;BISB DELIVERED THE WRONG RESULT 

*********** *•***•***•**•*•**• **************** ******* 

BISB SM1.DM3 TEST - SOURCE ADDR ODD 
****************************************( 



|563,R0 
8|f2$,Rl 
flMByr 0,R2 
|377,R4 

|dbta+i,R5 

(R2) 

|ATA+10,R3 



2$: 



BISB 

CMP 

BEQ 

MOV 

3$: ERROR 
••*•*•*•**••* 

;*TEST 564 

.. *********** 

TST564: 

SCOPE 
MOV 
MOV 
MOV 



<Rb),0(R3)+ 

R4,(R2) 
TST564 

|R2),R3 



********** 

;C ALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

>DEST ADDR = MBUFO 

;RESULT S / B = 377 

;S0URCE ADDR = DBTA+1 

;CDEST3 = 000000 

>BASE DEST ADDR = ATA+10 

JSCOPE SYNC 

JTEST THE BISB 

;CORRECT RESULT 
;;BR IF YES 



;GET THE WAS DATA 
;BISB DELIVERED THE WRONG RESULT 

***************************** •****•••** ************* 

BISB SMI. DM4 TEST - SOURCE ADDR ODD 
***************************** ******** *Si 



i ****** ******* 



}564,R0 
5#2$,R1 
»MBOF0,R2 



;C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
>LOAD Rl WITH TEST INSTRUCTION WORD 
J DEST ADDR = MBUFO 
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11103 
1104 
1105 

mi 
m 

in2 

Hi 

HI 

Ml 
ttfl 
ij 

1 



112<' 

111 

113J 
113? 

L 

m 

1145 
[46 
L 4T 
L4S 
[49 
f5C 
fsj 
152 
L5? 
[54 
[55 

1st 



040220 
040224 
040230 
040234 
040236 



040240 151543 



040242 
040244 



040246 
040250 



040254 
040560 
040264 
040270 
040274 
040300 
040304 
040306 



040312 
040314 



949316 
040320 



040322 



012704 
012705 
012703 
005012 
000257 



020412 
001402 



011203 
104001 



000004 
012700 

mm 

012704 
012705 
512703 
005012 
000257 



040310 151553 



40334 

mm 

040350 
040354 
040356 

040360 

040364 
040366 

040370 



020412 
001402 



011203 
104001 



000004 

iiPii 

m 

005012 
000257 

151563 

mm 

011203 



177400 
064631 
06 3314 



000565 
24Q310 

him 

064631 
063310 



000566 
040360 
063312 

mil 



177772 



MOV 
MOV 
MOV 
CLR 
CCC 

BISB 

CMP 

BEQ 

3$: ERROR 
> ••*•**•*••* 



2$: 



J177400, R4 
§DBTA+1,R5 
§MBUF0+2,R3 
(R2) 



(R5),-(R3) 



R4,(R2) 
TST565 

(R2),R3 



IRESULT S / B = 177400 
JSOURCE ADDR = DBTA+1 
;BASE DEST ADDR = M8UF0+2 
;CDEST3 = 000000 
; SCOPE SYNC 

;TEST THE BISB 

JCORRECT RESULT 
>;8R IF YES 

;GET THE WAS DATA 

;BISB DELIVERED THE WRONG RESULT 



'>V 

;*TEST 565 
^ ************ 

TST565: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 



***************************************** *********** 

BISJ 



2S: 



3$: 



BISB 



CMP 
BEQ 



********* 



(565, RO 
MBUf oJr2 
377.R4 
DBTA+1, R5 
ATA+12,R3 
R2) 

(R5),S-(R3) 

R4,(R2) 
TST566 



SM1,DM5 TEST - SOURCE ADDR ODD 
********************************* 



MOV 
ERROR 



[R2),R3 



********** 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

JRESULT S / B = 377 

)S0URCE ADDR = DBTA+1 

;BASE DEST ADDR = ATA+12 

KDEST3 = 000000 

;SCOPE SYNC 

;TEST THE BISB 

;COHRECT RESULT 
;;BR IF YES 

;GET THE WAS DATA 

>BISB DELIVERED THE WRONG RESULT 



• • *********** 

;*TEST 566 

; . *********** 

TST566: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 



**************************************************** 

BISB SMI. DM6 TEST - SOURCE ADDR ODD 
*********************************** ***************** 



2$! 



BISB 



CMP 
BEQ 



MOV 



1566, RO 

|MBU#0*R2 
|377,R4 
|DBTA+1,R5 
IMBUF0+6,R3 

[R2) 



(R5),-6(R3) 

tI*^ 
{R2),R3 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

;RESULT S / B = 377 

;SOURCE ADDR = DBTA+1 

;B ASE DEST ADDR = MB0F0+6 

;CDEST3 = 000000 

;§COPE SYNC 

JTEST THE BISB 



;CORRECT RESULT 
>;BR IF YES 



JGET THE WAS DATA 
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11185 



ffl 

m 

209 
210 

m 
m 



040372 104001 




040432 151573 000010 



040436 
040440 



040442 
040444 



040446 
040446 
040450 
040454 
040460 
040464 
040470 

0^04^ 



040476 150423 



040500 
040502 

040504 
040506 



040510 
040510 
040512 
040516 
040522 
040526 
040532 
040536 



020412 
001402 



011203 
104001 



000004 
012700 
013701 
012702 
012704 
010203 
005012 
000257 



02041; 

00146: 



mi 



000004 
012700 
013701 
012702 
012704 
012705 
012703 



000570 
040476 
063312 
000377 



3$i 



ERROR 



JBISB DELIVERED THE WRONG RESULT 



a***************************************** ************** ******* 

ADDR ODD 

************************* 



****** 

TST567: 

SCOPE 



'***< 



2$: 



3$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

BISB 

CMP 

BEQ 

MOV 
ERROR 



1567 # R0 
Siw§jR2 
377, R4 
DBTA*1,R5 
ATA,R3 
R2) 

<R5),§10(R3) 

R4,(R2) 
TST570 

(R2),R3 



;C ALL THE SCOPE LOOP UTILITY 



;;LOAD RO WITH TEST NUMBER 
)L0AD Rl WITH TEST INSTRUCTION WORD 
;DEST ADDR = MBUFO 
; RESULT S / B = 377 
JSOURCE ADDR = DBTA-fl 
JBASE DEST ADDR = ATA 
JCDEST3 = 000000 
;SCOPE SYNC 

JTEST THE BISB 

JCORRECT RESULT 
>;BR IF YES 

;GET THE WAS DATA 

JBISB DELIVERED THE WRONG RESULT 



?iTEST j 5?0 
«T570: 



BISB SM0/DM2 TEST - DEST ADDR EVEN 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

BISB 

CMP 

BEQ 

MOV 

ERROR 




R4,(R3)+ 

?sf57T 
(R2),R3 



;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

;DEST ADDR = MBUFO 

JRESULT S / B = 377 

;DEST AODR IN R3 

JCDEST3 = 000000 

;SCOPE SYNC 

;TEST THE BISB 

;CORRECT RESULT 
>;BR IF YES 

/GET THE WAS DATA 
JBISB DELIVERED THE WRONG RESULT 



2$: 



3$: 

..a************************************************************** 

J»TEST 571 
• < ******** 

TST571: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



/CALL THE SCOPE LOOP UTILITY 

|571,R0 ;;LOAD RO WITH TEST NUMBER 

a#2$,Rl jlOAD Rl WITH TEST INSTRUCTION WORD 

|MBUF0#R2 >DEST ADDR = MBUFO 

1177400, R4 >RESULT S / B = 177400 

§377, R5 JCR53=SQURCE OPR = 377 

IMBUF0+1/R3 JODD DEST ADDR IN R3 
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mil 



040542 
040544 




000572 
040610 

SIMM 



000573 
040660 
°S3312 
177400 
064631 
063313 
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T571 BISB SM0/DM1 TEST - DEST ADDR ODD 



2$: 



3$: 



CLR 
CCC 



BISB 



CMP 
BEQ 



MOV 
ERROR 



(R2) 

R5,(R3) 

R4,{R2) 
TST572 

p2),R3 



JCDEST3 = 000000 
jSCOPE SYNC 

;TEST THE BISB 

jCQRRECT RESULT 

jjbr if yes 

>get the was data 

jbisb delivered the wrong result 



• • ******* *************** »****< 
TST572: 



si**.*!**.**^*™ 



*********** 
*•**••****•*•* 



SCOPE 
MOV 



2$: 



3S: 



CMP 
BEQ 



1572, RO 
#2S,R1 
MB0F0/R2 
377, R4 
2,R3 
<R2) 



R4,(R2) 

TST5T" 



3V 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

BISB R4,(R3) 



MOV 
ERROR 



[R2),R3 



JC ALL THE SCOPE LOOP UTILITY 

} J LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

JDEST ADDR = MBUFO 

JRESULT S / B = 377 

;DEST ADDR IN R3 

JCDEST3 = 000000 

JSCOPE SYNC 

JTEST THE BISB 

;CORRECT RESULT 
j;BR IF YES 

;GET THE WAS DATA 

JBISB DELIVERED THE WRONG RESULT 



• . *************************************************************** 

j*TEST 573 BISB SMI, DM1 TEST - DEST ADDR ODD 

} • *************** **************** ******************* ******* ****** 



TST573: 



2$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CCC 

BISB 

CMP 

BEQ 



|5]|3,R0 

Il77400,R4 

5DBTA*1,R5 
MBUF0+1,R3 
R2) 



(R5),(R3) 



JC ALL THE SCOPE LOOP UTILITY 

JjLOAD RO WITH TEST NUMBER 

jLOAD Rl WITH TEST INSTRUCTION WORD 

JDEST AODR = MBUFO 

JRESULT S / B = 177400 

JSOURCE ADDR = DBTA+1 

JODD DEST ADDR IN R3 

JCDEST3 = 000000 

J SCOPE SYNC 

JTEST THE BISB 

JCORRECT RESULT 
JJBR IF YES 
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11 

11 



_-'3 

IB 



1128 
112f 
112( 
1121 
11286 

ml 

11289 

1111? 

11111 
11294 

11295 
11296 
11297 
11298 
11299 
11300 

nm 

11181 

11305 
11306 
11307 
11308 

I}!?* 

i\m 

11313 

i\m 

11316 
11317 

11319 
11320 
11321 

liffl 
11324 
11325 
11326 



040672 
040672 
°4Q6.74 
040700 
040704 
040710 



040712 000112 



040714 
040716 

040720 
040722 
040724 
040726 



040732 
040732 
040734 
040740 
040744 
040750 



040754 
040756 

040760 
040762 
040764 
040766 



040772 
040772 
040774 
041000 
041004 
041010 

041012 

041014 
041016 



000004 

81881 

012702 
000277 



104006 
000405 

103003 
102002 
001001 
100401 



040730 104006 



000004 
012700 
013701 
012702 
000257 



040752 000112 



104006 
000405 

103403 
102402 
001401 
100001 



040770 104006 



000004 
012700 
013701 
012702 
000277 

000122 

104006 
000411 



88851! 

040720 



000575 
040""' 
040 



000576 
041012 
041020 



MACY11 30AU052) 15-HOV 
T574 JMP MODE 1 TEST, 

. . *********** *********] 

TST574: 



-78 15:26 PAGE 209 
FLAGS = 1111 





SCOPE 




MOV 




MOV 




MOV 




see 


2$: 


JMP 


3$: 


ERROR 


BR 


4$: 


BCC 


BVC 




BNE 




BMI 


5$: 


ERROR 



****************************************** 

;CALL THE SCOPE LOOP UTILITY 
RO ' >;LOAD RO WITH TEST NUMBER 

,Rl ;LOAD Rl WITH TEST INSTRUCTION WORD 

R2 ;R2 CONTAINS JUMP ADDRESS 

;HAKE h:c = 1111 

(R2) JTEST THE JMP - GO TO 4$ 

6 ;JMP FAILED TO LOAD PC 

TST575 ;;GO CALL SCOPE 

5S ;BR IF JMP CLEARED "C" 

5$ ;BR IF JMP CLEARED "V" 

5$ ;BH IF JMP CLEARED "Z" 

TST575 ;;BR IF "N" STILL SET 



> *••**•*** 



************* 



;*TEST 575 

• •*•***•*****-< 

TST575: 

SCOPS 

MOV 

MOV 

MOV 

CCC 



2$: 
3$: 

4$: 



JMP 

ERROR 
BR 

BCS 
BVS 
BEQ 
BPL 

ERROR 



#575, RO 
k $ R2 R1 

(R2) 
6 

TST576 



55 

TST576 



< ******** 



****** ********! 



5S: 

;*TEST 576 JMP MODE 

j. ************** ********! 

TST576: 

SCOPE 

MOV #576,R0 

MOV B#2S*R1 

MOV 14$, R2 

sec 



;JMP ALTERED CODES - CLEARED ONE 
************** ************** ************* 

1 TEST, FLAGS = 0000 
***************************************** 

;CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;R2 CONTAINS JMP ADDRESS 

JMAKE N:C = 0000 

;TEST THE JMP - GO TO 4$ 

>JMP FAILED TO LOAD PC 
;;GO CALL SCOPE 

;BR IF JMP SET "C" 
;BR IF JMP SET "V" 
;BR IF JMP SET "Z" 
;;BR IF "N" STILL CLEAR 

;JMP ALTERED CODES - SET ONE 
******* ****************** *************** 

2 TEST; FLAGS = 
******* 



******* 



1111 
**** 



******************** 



2$: 
3$: 



JMP 



ERROR 
BR 



(R2H 



6 

TST577 



/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;R2 CONTAINS JUMP ADDRESS 

;SET N:C = 1111 

;TEST THE JMP - GO TO 4$ 

;JMP FAILED TO LOAD PC 
;;GO TO SCOPE EXIT 
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103003 
102002 
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T576 JMP MODE 2 TEST? FLAGS = 1111 



°8M81 




041022 



000577 
041 " "" 
041 



041062 
"11070 



81B8? nn® 

041154 



4$: 


BCC 
BVC 
BNE 
BMI 


5$ 
5$ 

5? 
6$ 


;BR IF JMP CLEARED "C" 
;BR IF JMP CLEARED "V" 
>BR IF JMP CLEARED "Z" 
;BR IF "N" STILL SET 


5$: 


ERROR 


6 


;JMP ALTERED CODES - CLEARED 


6$: 


CMP 

BEQ 




;DID R2 GET AUTO- INCREMENT ED? 
;;BR IF YES 


7$: 


ERROR 


6 


;JMP FAILED TO UPDATE REGISTER (R2) 


• . *************************************************************** 

;*TEST 577 JMP MODE 2 TEST; FLAGS = 0000 

• • ****** ************ ********************** *•••****•*** *********** 

TST577: 

SCOPE ;C ALL THE SCOPE LOOP UTILITY 

MOV #577, RO ;;LOAD RO WITH TEST NUMBER 

MOV S#2$,R1 ;LOAD Rl WITH TEST INSTRUCTION WORD 

MOV #4$,R2 JR2 CONTAINS JUMP ADDRESS 

CCC ;MAKE N:C = 0000 


2S: 


JMP 


(R2) + 


;TEST THE JMP - GO TO 4$ 


3$: 


ERROR 
BR 


6 

TST600 


;JMP FAILED TO LOAD PC 
>;GO TO SCOPE EXIT 


4$: 


BCS 
BVS 
BEQ 
BPL 


5$ 
5S 
5$ 

TST600 


;BR IF JMP SET "C" 
;BR IF JMP SET "V" 
;br IF JMP SET "Z" 
;>BR IF "N" IS CLEAR 


5$: 


ERROR 


6 


;JMP ALTERED CODES - SET 



*********** 

!*X*.J**22**. 

TST600: 

SCOPE 

MOV 

MOV 

MOV 

SCC 

JMP 

ERROR 
BR 

BCC 
BVC 
BNE 
BMI 



5*' 



2$: 
3$: 

4$: 



********************************* 

*****£SI**22£*2***5;*§I* **illl**< 



******** *********** 
*** 



******************* 



104006 



5s: 



#600, RO 
I*25,R1 
#7$,R2 

e(R2)+ 
6 

TST601 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;R2 CONTAINS ADDRESS OF JUMP ADDRESS 
;SET N:C = 1111 

;TEST THE JMP - GO TO 4$ 

;JMP FAILED TO LOAD PC 
;;GO TO SCOPE EXIT 

;BR IF JMP CLEARED "C" 
;BR IF JMP CLEARED "V" 
;BR IF JMP CLEARED "Z" 
>BR IF "N» STILL SET 

;JMP ALTERED CODES - CLEAR 
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CQKDAC.P11 07-HOV-78 14:09 T600 JMP TEST MODE 3> FLAGS = 1111 

ll\ 041142 022702 041156 6$: CMP |7S+2,R2 ;DID JMP UPDATE R2? 

385 041146 001404 BEQ tST601 >>BR IF YES 

IVi 041150 104006 ERROR 6 >JMP FAILED TO UPDATE REGISTER 



CQKDA- 
CQKDAC 



C KD11-K BASIC LOGIC TESTS 
.Pll 07-NOV-78 14:09 



MACY11 30A(105'2) 15-NOV 
T600 JMP TEST MODE 3; 



-78 15:26 PAGE 212 
FLAGS = 1111 



595 



m 

.426 

m 

434 
435 

w 
m 

M 

L443 



041152 

him 



041160 



000402 
1?4^6 



000004 
012700 




104006 
000402 



041206 
104006 



041226 

mm 



mm 



041244 

041246 000142 

041250 104006 
041252 500414 

mu 

000411 
1Q30Q3 



]1P 
041260 

04126; 

m ' 

041 



n i 



000601 
041200 
041222 



000004 

012700 000602 

041234 013701 041246 



041256 



7$: 



BR 

eIror 



TST601 
6 



********************** 



>*TEST 601 
• . *********** 

TST601 



2$: 
3$: 

4$: 



5$: 
6$: 

• i" 



SCOPE 
MOV 
MOV 
MOV 
CCC 


D601/R0 


JMP 


8(R2)+ 


ERROR 
BR 


6 

TST602 


BCS 
BVS 
BEQ 
BPL 


5$ 
55 
55 

TST602 


ERROR 
BR 


6 

TST602 


E^ROR 


6 



*TEST 602 
• • ********** 

TST602: 

SCOPE 



***** ****** 

JMP TEST 
*********** 



2$: 
3$: 



5$: 
4$: 



70 10040 



MOV 
MOV 
MOV 
SCC 

JMP 

ERROR 
BR 

BR 

ERROR 
BR 

BCC 
BVC 
BNE 
BMI 



»602,R0 
J#2$,R1 
}5S,R2 



-(R2) 
6 

TST603 
t % 

TST603 
7$ 

n 

6$ 



;jGO TO SCOPE EXIT 

?JMP3 CONTAINS JUMP ADDRESS 

JERROR CALL OCCURS IF MODE 3 HAPPENS 

;TQ EXECUTE AS MODE 1 OR 2 AND 

;4$ IS LEGAL INSTRUCTION 

****** ************** •**•***••**• ********* 

MODE 3> FLAGS = 0000 
******** ************************** ******* 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
}R2 CONTAINS ADDRESS UF JUMP ADDRESS 
J MAKE N:C = 0000 

;test the jmp - go to 4$ 

;jmp failed to load the pc 
>?go to scope exit 

;br if jmp set "c" 
jbr if jmp set "v" 
jbr if jmp set "z" 
;;br if "n" still clear 

jjmp altered codes - set 
j j go to scope exit 

jjump address in 6$ 

>jmp mode 3 executed like mode 1 or 2 

********************* ******************** 

MODE 4} FLAGS = 1111 
******************** ********** *********** 

/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JCR23 = JMP ADDRESS PLUS 2 
;MAKE N:C = 1111 

JTEST THE JMP - GO TO 5$ MINUS 2 

JJMP FAILED TO LOAD PC 
JJGO TO SCOPE EXIT 

JGO TEST FLAGS - JMP LOADED PC OK 
JJMP FAILED TO AUTO-DECREMENT R2 
J>GO TO SCOPE EXIT 

JBR IF JMP CLEARED "C" 
/BR IF JMP CLEARED "V" 
)BR IF JMP CLEARED "2" 
JBR IF "N" STILL SET 
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MACYU 30A(1052) 15-NOV- 
T602 JMP TEST MODE 4) 



mil 

11441 
11441 

1145J 

mil 

11456 

mi 

11459 

ml 

11463 
11464 
11465 
11466 
11467 
11468 
11469 
11470 
11471 

urn 

1147£ 
11471 
I147fi 
11475 
1148J 
11481 
11482 
11483 

lit! 

1148C 
11481 
11488 
1148? 
1149$ 
11491 

1493 
1494 
1495 
149€ 
11491 
11498 
11493 



041272 104006 



041274 
041300 



041304 
041304 
041306 



04-_ 
0413 



041324 

041326 
041330 

041332 
041334 
041336 
041340 

041342 



041344 
041344 
041346 
041352 
041356 
041362 

041364 

041366 
041370 

041372 
041374 
041376 
041400 



041404 
041410 



041412 
041414 



022702 
001401 



041302 104006 



000004 

012700 

01370" 

01270 

00025 

000142 

104006 
000405 

103403 
102402 
00140 1 
100001 

104006 



000004 
012700 
013701 
012702 
000277 

000152 

104006 
000414 

103003 
102002 
001001 
100401 



041402 104006 



022702 
001404 



104006 
000402 



041254 



000603 
041324 
041334 



000604 
041364 
041420 



041416 



7$: 
6$: 



CMP 

BEQ 



ERROR 6 

#5S-2 < R2 
TST603 

9$: ERROR 6 

• . ******* ******** ******* 

;*TEST 603 JMP TEST 

j. ********************** 

TST603: 

SCOPE 
MOV 
MUV 
MOV 

ccc 



78 15:26 PAGE 213 
FLAGS = 1111 

;JMP ALTERED FLAGS 



603, RO 

— ' "1 
R2 



4$+2,F 



2$: 
3$: 

4$: 



5$: 



JMP 

ERROR 
BR 

BCS 
BVS 
BEQ 
3PL 



-(R2) 
6 

TST604 

5$ 
55 

TST604 



JDID JMP UPDATE R2 PROPERLY? 
;;BR IF YES 

;JMP FAILED TO UPDATE REGISTER 

***************************************** 

MODE 4> FLAGS = 0000 
A**************************************** 

;CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JCR23 = JUMP ADDRESS PLUS 2 
JMAKE N:C = 0000 

JTEST THE JMP - TO TO 4$ 

JJMP FAILED TO LOAD PC 

jjgo to scope exit 

jbr if jmp set "c" 
;br if jmp set "v" 
jbr if jmp set "z" 
;;br if "n" still clear 



ERROR 6 

• • *********** *•**•**•*•• 

z*TEST 604 JMP TEST 

• . ************** ******** 

TST604 

SCOPE 

|604,R0 
71 

,R2 



JJMP ALTERED CODES - SET 
•***••****•*•• *********** ******** 

MODE 5J FLAGS = 1111 
******** ***************** ******* 



:****•*« 





SCOPE 




MOV 




MOV 




MOV 




see 


2$: 


JMP 


3$: 


ERROR 


PR 


4$: 


BCC 




BVC 




BNE 




BMI 


5$: 


ERROR 


6$: 


CMP 


BEQ 


7$: 


ERROR 


BR 



§-(R2) 
6 

T3T605 

5? 
5$ 

i 



»JMP5-2,I 
fST605 



6 

TST605 



•***••*•* 

JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JJMP CONTAINS ADDR+2 OF JUMP ADDRESS 

;TEST THE JMP - GO TO 4$ 

;JMP FAILED TO LOAD PC 
JJGO TO SCOPE OXIT 

;BR IF JMP CLEARED "C" 

JJMP ALTERED CODES - CLEARED 

JDID R2 GET AUTO-DECREMENTED 

;>BR IF YES 

JJMP FAILED TO UPDATE REGISTER 

JjGO TO SCOPE EXIT 
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T604 JMP TEST MODE 5; FLAGS 



1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
15 1J 
151i 

mi 
m 
m 
m 



52< 
L525 

III 
[53C 

J 35 
L53€ 
531 



(.544 
545 



548 
549 
||0 

1552 
1553 
1554 
1555 



041416 
041420 



041422 
041422 
041424 
041430 
041434 
041440 



041444 
041446 

041450 
041452 
041454 
041456 

041460 
041462 

041464 
041466 



041470 
041470 
041472 
041476 
041502 
041506 

041510 

041514 
041516 

41520 
4J522 

mm 

041534 



041372 
104006 



000004 

012700 

01370 

01270 

00025 



041442 000152 



J8 



4006 
0410 



103403 
102402 

mm 

104006 
000402 

041450 
104006 



000004 
012700 
013701 
012702 
000277 



104006 



000605 
041442 
041466 



000606 
041510 
041534 



000162 177764 



JMP5 ! 



It 



RQR 



..********************** 

>*TEST 605 JMP TEST 

• • *********** *********** 

TST605: 

SCOPE 
MOV 
MOV 
MOV 
CCC 



»605,R0 

iIhp^a^r; 



2$: 
3$: 

4$: 



5$: 



JMP5A: 
Mr 



JMP 

ERROR 
BR 

BCS 
BVS 
BEQ 
BPL 

ERROR 
BR 

n 



ROR 



TS 



•***•*•*•******••***• 

TEST 606 JMP TEST 

************************ 

T606: 



1111 

;THIS LOCATION CONTAINS JMP ADDRESS 
JJMP EXECUTED LIKE A MODE 1 OR 2 

***************************************** 

MODE 5; FLAG = 0000 
********* ************* ********** ********* 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JCR23 = ADDR +2 OF JUMP ADDRESS 
JSET N:C = 0000 

j?-(R2) ;TEST THE JMP - GO TO 4$ 

6 ;JMP FAILED TO LOAD PC 

TST606 JjGO TO SCOPE EXIT 

5$ ;8R IF JMP SET "C" 

5$ ;BR IF JMP SET "V" 

;BR IF JMP SET "Z" 
606 >JBR IF h N" STILL CLEAR 

6 ;JMP ALTERED THE CODES - SET 

TST606 JjGO TO SCOPE EXIT 

;THIS LOCATION CONTAINS JUMP ADDRESS 
6 ;JMP EXECUTED LIKE A MODE 1 OR 2 

a**************************************** 



lit 



MODE 6; FLAGS = 1111 

********************************** ****** 



2$: 
3$: 

4$: 



5$: 
7$: 



SCOPE 
MOV 
MOV 
MOV 
SCC 

JMP 

ERROR 
BR 

BCC 
BVC 
BNE 
BMI 

ERROR 
BR 

ERROR 



606, RO 
2 



>CR23 

4$-7$(R2) 
6 

TST607 

5$ 
5$ 
5i 

TST607 
6 

TST607 



jcall the scope loop utility 
jjload ro with test number 
jload rl with test instruction word 
base address to be indexed 
jmake n:c = 1111 

;test the jmp - go to 4$ 

;jmp failed to load the pc 
;?go to scope exit 

jbr if jmp cleared "c" 



J J BR IF "N» STILL SET 

JJMP ALTERED CODES - CLEARED 
J>GO TO SCOPE EXIT 

JJMP EXECUTED LIKE A MODE 1 OR 2 OR 
JFAILED TO INDEX CR23 



. ****** **************** ******************** ************** ******* 
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_ IS 
LS76 
527 



11580 

\\m 

11583 
11584 

P 

11589 



11592 

mi 

11596 
11597 



600 

m 

603 
604 
605 

608 
60? 



[I 

il 
li 

Nil 



04|566 



041576 
041600 



041604 

811186 
041612 
041616 
041622 



041630 
041632 

041634 
041636 

041640 
041642 
041644 
041646 

041650 
041652 

041654 

041656 



000004 

mm 



103403 
102402 



041570 _ 

mm mm 



104006 
000401 



041602 104006 



n 



104006 
000412 

104006 
000410 

103003 
102002 
001001 
100404 

104006 
000402 

041640 

104006 



000607 
041556 
041602 



041556 000162 177764 

041562 104006 
041564 000407 



000004 

012700 000610 
013701 041624 
"2702 041634 
0277 



041624 000172 000020 
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T607 JNP TEST MODE 6; FLAGS = 0000 



SEQ 0214 



T5T607: 





SCOPE 

MOV 

MOV 

MOV 

CCC 


#607, RO ' 

„ 


2S: 


JMP 


4$-7S(R2) 


3$: 


ERROR 
BR 


6 

TST610 


4$: 


BCS 
BVS 
BEQ 
BPL 


55 
5$ 
55 

T3T610 


5$: 


ERROR 
BR 


6 

TST610 


7$: 


SRROR 


6 



JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JCR23 = BASE ADDRESS FOR JUMP 
;MAKE N:C = 0000 

jtest the jmp - go to 4$ 

jjmp failed to load pc 
jjgo to scope exit 

>8r if jmp set "c" 
j br if jmp set "v" 
>br if jmp set "z" 
;;br if '"n" still clear 

jjmp altered codes 
jjgo to scope exit 

jjmp executed like a mode 1 or 2, or 
jf ailed to index cr23 



*************************************************************** 

****************************** ****** if ********** *********** 



J^TEST 610 
. . ******** 

TST610 



2S: 
3$: 

5$: 

4$: 

7$: 
8$: 



SCOPE 
MOV 
MOV 
MOV 
SCC 

JMP 

ERROR 
BR 

ERROR 
BR 

BCC 
BVC 
BNE 
BMI 

KRROR 
BR 

4$ 

KRROR 



JMP TEST MODE 7; FLAGS = 1111 

************************ **i**i 

;CALL THE SCOPE LOOP UTILITY 
j;LOAD RO WITH TEST NUMBER 
ItOAD Rl WITH TEST INSTRUCTION WORD 
CR2 3 = BASE ADDRESS 

/MAKE NtC = 1111 



#610, RO 



@B$-5$(R2) 
6 

TST611 
6 

TST611 

7? 
7$ 

TST611 
6 

TST611 



;test the jmp - go to 4$ 

jjmp failed to load pc 

;;gd to scope exit 

jjmp failed to index or acted like mode 1 or 

jjgo to scope exit 

jbr if jmp cleared "c" 
jbr if jmp cleared "v" 
;br if jmp cleared "z" 

;jBR IF "N" STILL SET 

;JMP ALTERED CODES - CLEARED 
JJGO TO SCOPE EXIT 

JTHIS LOCATION CONTAINS JMP ADDRESS 
JJMP EXECUTED LIKE MODE 6 



**************************************** *********************** 
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000004 




005746 
010603 
010504 
005744 
1040C" 



000611 
041700 
041710 



000020 



mi 

001010 
041770 
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T611 JMP TEST MODE 7; FLAGS = 0000 

J*TEST 611 JMP TEST MODE 7: FLAGS = 0000 

j.*************************************************************** 

TST611: 

;CALL THE SCOPE LOOP UTILITY 

JJLOAD RO Wj"" * 

JLOAD Rl W II 



SEQ 0215 



2$: 
3$: 

5$: 

4$: 

7$: 
8$: 



SCOPE 
MOV 
MOV 
MOV 
CCC 

JMP 

ERROR 
BR 

ERROR 
BR 

BCS 
BVS 
BEQ 
BPL 

ERROR 
BR 

4$ 

ERROR 



611, RO 
#2$<R1 

5$,R2 JCR23 



§8$-5$(R2) 



6 

TST612 



TST612 

n 

TST612 

6 

TST612 



LOAD RO WITH TEST NUMBER 

/uOAD Rl WITH TEST IN 

BASE ADDRESS 



STRDCTION WORD 



TES 

JMAKE N:C~="0000 

JTEST THE JMP - GO TO 4$ 

JJMP FAILED TO LOAD PC 
;>GO TO SCOPE EXIT 

JJMP FAILED TO INDEX 
JJGO TO SCOPE EXIT 

JBR IF JMP SET "C" 
JBR IF JMP SET "V 
JBR IF JMP SET "Z" 
JJBR IF "N" STILL CLEAR 

;JMP ALTERED CODES - SET 
JJGO TO SCOPE EXIT 

JTHIS LOCATION CONTAINS JUMP ADDRESS 
JJMP EXECUTED LIKE A MODE 6 



..*************************************************************** 

•*tf<;t fiO JSR MODE 1 TEST - LOAD PC / PUSH SP ^^^^ 

I* **************************************** ************** 



TST612: 

SCOPE 



1$: 

2$: 
3$: 
4$: 



5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

JSR 

ERROR 

TST 
CMP 

BEQ 

TST 
MOV 
MOV 
TST 
ERROR 



#612,R0 

PC gJSLPERR 
#4$,R2 




JCALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

J SAVE THE SP 

JSET ERROR LOOP ADDRESS 

JRESTORE SP FOR ERROR LOOPING 

JDEST ADDR = 4$ 

JSCOPE SYNC 

JTEST THE JSR - GO TO 4$ 
JJSR FAILED TO LOAD THE PC 
>POP THE SP 

JDID JSR PUSH THE SP ? 
JjBR IF YES 

JRESTORE ERROR SP 
JCR33= WAS SP 

JCR43= S/B SP 

JJSR FAILED TO PUSH THE SP 
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042010 010506 



HACY11 30A(1052) 
T612 JSR MODE 
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1 TEST - LOAD PC / PUSH SP 




-■ ft 
1707 

1708 

1709 

1710 

1 7 U 
1712 
1713 
1714 
1715 

1718 
17l| 
1720 
1721 
J722 
17 23 



042112 

mm 

042124 
042126 



010506 
012702 
000257 



042132 
042134 
042140 



042142 004412 
042144 104006 



042146 
042150 
042152 



100403 
001402 
102401 



125252 



042054 



104005 
010506 



000004 

012700 000614 
013701 042142 

032737 010000 063234 

o84ooJ 

010605 

010737 001010 



042146 



1 • ««xviff>i>iKiriiiKiv«irir*>«iiffTtttftiit **»******»»» »*w*irw»********** 

;*TEST 613 JSR MODE 1 TEST - CHECK RN AMD OLD PC 

j . ********************* *********** ************ ******* ************ 

TST613: 



IS: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 

JSR 

ERROR 

CMP 
BEQ 



#613, RO 
PC'^$LPERR 

*\ hn 

#125252, R4 

R4,(R2) 
6 

|125252,(SP)+ 



CMP 
BEQ 



ERROR 
MOV 



|3S,R4 



5 

R5,SP 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
jLOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
;SET ERROR LOOP ADDRESS 
;RESTORE SP FOR ERROR LOOPING 
;DEST ADDR = 4$ 
>INIT STACK LOC TO GET CR43 
JINIT RN = 125252 

;scope sync 

jtest the jsr - go to 4$ 

>jsr failed to load the pc 

jdid jsr save reg on stack 
>br if it did 

;jsr failed to save reg on stack 

jdid old pc get saved ? 
;br if yes 

>jsr failed to save th old pc 

jrestore sp in case er«or screwed it 



2$: 
3$: 
4$: 

5$: 
8$: 

7$: 
6$: 

. . ********************** ******************** ********************* 

;*TEST 614 JSR MODE 1 TEST - »:C = 0000 

• • *************************************************************** 

TST614: 

SCOPE ;CALL THE SCOPE LOOP UTILITY 

MOV #614, RO ;;LOAD RO WITH TEST NUMBER 

MOV BS2S#R1 ;LOAD Rl WITH TEST INSTRUCTION WORD 

.SBTTL USER CONTROLLED BREAKPOINT -- BIT12 



IS: 

2$: 
3$: 
4$: 



BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
CCC 

JSR 

ERROR 

BMI 

BEQ 
BVS 



#BIT12,9#BPTLOC /BREAKPOINT HALT SET ?? 



.♦4 

SP R5 

PC; g |SLPERR 
#4$,R2 



R4,(R2) 

6 

5$ 
5$ 
5$ 



;BR IF NOT 
JBREAK-DEPRESS CONTINUE TO CONTINUE 
>SAV£ THE SP 
;SET ERROR LOOP ADDRESS 
;RESTORE SP FOR ERROR LOOPING 
;DEST ADDR = 4$ 
?n:c = 0000 

;TEST THE JSR - GO TO 45 
;JSR FAILED TO LOAD THE PC 
;n:c = 0000 ? 
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1724 
1725 
1726 



00061' 
042215 
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NT — BIT12 




001010 
042216 



ma 

001010 
042266 



5$: 



BCC 6$ 
ERROR 5 



6$: MOV R5#SP 

•T********************** 

>*TEST 615 JSR MODE 

************ **********! 

TST615: 

SCOPE 
MOV 



;JSR FAILED - ALTERED FLAGS 

**********f 5£**5**I * *S*^**£«* 5**2* ******* 



1$: 

2$: 
3| : 
4$: 

5$: 
6$: 



MOV 
MOV 
MOV 
MOV 
MOV 
SCC 

JSR 

ERROR 

BPL 
BNE 
BVC 
BCS 
ERROR 

MOV 



#615, RO 

lias 81 

SS'Jf $LP 

#4|,R2 

R4,(R2) 
6 

5$ 
5$ 
55 
6$ 
5 

R5,SP 



;CALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WOPO 
;SAVE THE SP 
ERR ;SET ERROR LOOP ADDRESS 

JRESTORE SP FOR ERROR LOOPING 
;DEST ADDR = 4$ 
;n:C = 1111 

JTEST THE JSR - GO TU 4$ 
>JSR FAILED TO LOAD THE PC 

>n:c = nil ? 



..********************** 

;*TEST 616 JSR MODE 

'. . ********************** 

TST616: 

SCOPE 
MOV 



10400 



1$: 

2$: 
3$: 
4$: 



5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

JSR 

ERROR 

TST 
CMP 
BEQ 

TST 
MOV 
MOV 
TST 

ERROR 



#616, RO 

KU n 

MP" 
#4$,R2 

R4,(R2)* 

6 

mi 

TST617 

s^r] 

R5,R4 
5 C«4) 



JJSR ALTERED FLAGS 
;RESET SP IN CASE OF ERROR 
***************************************** 

************************** 

JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
ERR ;SET ERROR LOOP ADDRESS 

J RESET SP FOR ERROR LOOPS 
JDEST ADDR = 4$ 
;SCOPE SYNC 



JTEST THE JSR - GO TO 4S 
;JSR FAILED TO LOAD THE PC 
JRESET SP 

;DID JSR PUSH STACK ? 
;;BR IF YES 

J RESET SP TO ERROR VALUE 
;WAS SP 

;s/B sp 

JJSR FAILED TO PUSH SP 
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042306 010506 
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T616 JSR MODE 2 TEST 



04233 



000004 
012700 
013701 
010605 
010737 
010506 
012702 
000257 

004432 

104006 

005726 
020605 
(501411 

005746 
010603 

°oim 

104003 
000402 

042344 
104006 



042372 010506 



042374 
042374 
042376 
042402 
042406 
042410 
042414 
042416 
042422 

042424 

042426 

042430 
042432 



000004 
012700 
013701 
010605 
010737 
010506 
012702 
000257 

004442 

104006 

000401 
104005 



000617 
042340 



001010 
042366 



000620 
042424 



001010 
042432 



MOV 



T617: 



IS: 

2S: 
3$: 
4$: 



5$: 
7$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

JSR 

ERROR 

TST 
CMP 

BEQ 

TST 
MOV 
MOV 
TST 

ERROR 
BR 

EiboR 



R5/SP 



f617/R0 

PC gJSLPERR 
#7$,R2 

R4,8<R2)* 
6 

soft's 

TST620 

R5SR4 
-(R4) 
3 

6$ 
6 

R5,SP 
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;RESTORE SP JUST IN CASE 



;CALL THE SCOPE LOOP UTILITY 

;?LOAD RO WITH TEST NUMBER 

;LOAD Rl WITH TEST INSTRUCTION WORD 

;SAVE THE SP 

)SET ERROR LOOP ADDRESS 

;RESET SP FOR ERROR LOOPS 

;DEST ADDR = C7$l 

; SCOPE SYNC 



SEQ 021B 



;TEST THE JSR - GO TO 4$ VIA 
;JSR FAILED TO LOAD THE PC 



7$ 



>RESET 

;did jj 
;;br ii 



SP 

R PUSH STACK ? 
YES 

TO ERROR VALUE 



>RESET SP 

;was sp 

?S/B SP 
>JSR FAILED 
;GO EXIT 

CONTAINS JUMP ADDR 
JJSR EXECUTED LIKE A 



;restore sp just 



MODE 
IN CASE 



1 OR 2 



********** ************ ********************************** ******* 

TEST 620 JSR MODE 4 TEST 



65 : 

n 

• > *************************************************************** 

TST620: 

;CALL THE SCOPE LOOP UTILITY 
;;LOA!l RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JSAVE THE SP 
;SET ERROR LOOP ADDRESS 
JRESET SP FOR ERROR LOOPS 
;DEST ADDR = 4$+2 
; SCOPE SYNC 





SCOPE 




MOV 




MOV 




MOV 




MOV 


IS: 


MOV 


MOV 




CCC 


2$: 


JSR 


3$: 


ERROR 




BR 


5|: 


ERROR 



#620,R0 
IPrV 1 

p r cWperr 

#5|/R2 



6 



5 6$ 



■(R2) 



;TEST THE JSR - GO TO 4S 

JJSR FAILED TO LOAD THE PC 

;JUMPED OK - GO CHECK SP 

; JSR FAILED TO DECREMENT DEST REG 
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11836 
11837 
H838 
11839 
11840 
11841 
11842 




000004 
2700 



000621 
042506 



001010 
042536 



000622 

3701 042572 

001010 

0506 

2702 042576 



MACY11 
T620 



6$: 



7$: 
8S: 



30A(1052) 
JSR MODE 

TST 
CMP 
BEQ 

TST 
MOV 
MOV 
TST 

ERROR 

MOV 



15-N0V-78 
4 TEST 

S^R*! 
TST621 

-(SP) 

sp,r5 

R5.R4 
-(R4) 
3 

RS,SP 



;<TEST 621 
• • **********< 

TST621: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

JSR 

ERROR 

TST 
CMP 

BEQ 

TST 
MOV 
MOV 
TST 
ERROR 
BR 



1$: 

2$: 
3$: 
4$: 



5$: 



£621,R0 

PC,J| S LPERR 
#7§,R2 



eIh 



MOV 



R4,@- 

6 

TST622 

s^r] 

R5,R4 

6$ 
5 

R5,SP 



(R2) 
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JRESET SP 

>DID JSR PUSH STACK ? 
/JBR IF YES 

/RESET SP TO ERROR VALUE 
;WAS SP 

;S/B SP 

;JSR FAILED TO PUSH SP 
/RESTORE SP JUST IN CASE 



}CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

jLOAD Rl WITH TEST INSTRUCTION WORD 

JSAVE THE SP 

>SET ERROR LOOP ADDRESS 

JRESET SP FOR ERROR LOOPS 

;DEST ADDR = C7S - 23 

;SCOPE SYNC 

/TEST THE JSR - GO TO 4S 
>JSR FAILED TO LOAD THE PC 
/RESET SP 

>DID JSR PUSH STACK ? 
>JBR IF YES 

;RESET SP TO ERROR VALUE 
;WAS SP 

;s/B SP 

JJSR FAILED TO PUSH SP 

;go exit 

jcontains jump address 
;jsr executed like a mode 1 or 2 

;restore sp just in case 



SEQ 0219 



7$: 

6$: 

..*************************************************************** 

;*TEST 622 JSR MODE 6 TEST 

«•******#***********************************************»******** 

TST622: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #622,R0 ;»LOAD RO WITH TEST NUMBER 

MOV &#2| t Rl JLOAD Rl WITH TEST INSTRUCTION WORD 

mov Sp,r5 jsave THE SP 

MOV PC/giSLPERR JSET ERROR LOOP ADDRESS 

1$: MOV R5<SP /RESET SP FOR ERROR LOOPS 

MOV #3$,R2 JCR23 = BASE DEST ADDR 
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MACY11 30A(1052) 
T622 



ii9ie 

1191? 
11920 

11923 



042570 

042572 

042576 

042600 
042602 
042604 

042606 
042610 
042612 
042614 
042616 
042620 



042622 



\\m mut mm 



042 

042630 

mut 

042642 
042644 
042650 

042652 

042656 



042660 
042662 
042664 

042666 
042670 
042672 
042674 
042676 
042700 

042702 
042704 



000257 

004462 

104006 

005726 
020605 
001406 

005746 
010603 
010504 
005744 
104003 
010506 



mm 

013701 



010506 
012702 
000257 

004472 

104006 



005726 
020605 
001411 

005746 
010603 
010504 
005744 
104003 
000402 

042660 
104005 



042706 010506 



000002 



000623 
042652 

001010 

042656 

000024 



2$: 
3$: 
4$: 



5$: 



JSR MODE 6 TEST 
CCC 

JSR R4,4$-3$ 

ERROR 6 

TST (SP)+ 

CMP SP,R5 

BEQ TST623 

TST -iSP) 

MOV SP/R3 

MOV R5#R4 

TST -(R4) 

ERROR 3 

MOV R5,SP 
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SEQ 0220 



>SCOPE SYHC 
(R2) ?TEST THE JSR - GO TO 4$ 

;JSR FAILED TO LOAD THE PC OR INDEX FAILED 
;RESET SP 

;DID JSR PUSH STACK ? 

;;BR if ves 



• . ********************** 

$*TEST 623 JSR MODE 

TS 



5T623! 





SCOPE 




MOV 




MOV 




MOV 




MOV 


IS: 


MOV 


MOV 




CCC 


2$: 


JSR 


3$: 


ERROR 


4$: 


TST 


CMP 




BEQ 




TST 




MOV 




MOV 




TST 


5$: 


ERROR 


BR 


7$: 


4$. 


ERROR 


6$: 


MOV 



;RESET SP TO ERROR VALUE 

;has SP 

>S/B SP 

?JSR FAILED TO POSH STACK 
;RESET SP JUST III CASE 

****************************** *********** 

7 TEST 

***************************************** 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
ERR ;SET ERROR LOOP ADDRESS 

;RESET SP FOR ERROR LOOPS 
;BASE DEST ADDR = 3$ 
JSCOPE SYNC 

R4,g7$-3$(R2) ;TEST THE JSR - GO TO 4$ VIA 7$ 

6 



,R1 




042710 
042710 



000004 



SP^5 
TST624 

SP^R^ 
R5,R4 
-(R4) 

6$ 



5 

RS/SP 

********************** 

>*TEST 624 SOB TEST 

************************ 

TST624: 

SCOPE 



;JSR FAILED TO LOAD THE PC 
;OR THE INDEX FAILED 

; RESET SP 

;DID JSR PUSH STACK ? 
>;BR IF YES 

;RESET SP TO ERROR VALUE 
>HAS SP 

;J^R FAILED TO PUSH STACK 
;SKIP TO EXIT 

;CONTAINS JUMP ADDR 

;JSR WORKED LIKE A MODE 1 OR 2 

;RESTORE SP JUST IN CASE 
***************************************** 

, fRl = 1. NO BRANCH 

***************************************** 

;CALL THE SCOPE LOOP UTILITY 
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T624 SOB TEST, CR3 = 



1948 
.949 
950 
951 
952 
_953 
1954 
955 

ffl 

958 
959 
960 



96 



965 
966 
967 

m 

970 

m 

974 
975 
976 
977 
978 

m 

Hi 

963 
984 
985 
986 
987 
988 
989 
990 
991 
992 
_993 
1994 
995 

III 



042712 
042716 
042722 
042726 

042730 
042732 

042734 
042736 



042740 

P 

042752 
042756 
042762 

042764 
042766 
042770 

042772 
042774 

042776 
043000 
043002 
043004 

043006 
043010 
043012 



043014 

mil 

043032 
043034 
043036 

O4384I 
043046 



lit 



012700 
013701 
12702 
J0402 

104006 
000402 

000257 
077204 



m 

012702 
012705 
000405 

000474 
000240 
000240 

005205 
001406 

000257 
077204 

mm 

104006 
000401 
104006 



mm 

013701 
077202 



104006 



000624 
042736 
000001 



ohoi . 

000005 
177773 



000626 
043034 
000001 



3$: 
2$: 



MOV 
MOV 
MOV 
BR 

ERROR 
BR 

CCC 
SOB 



#624,R0 

If 5 " 

6 

TST625 



R2/3$ 

********************** 

. TEST 625 SOB TEST, 

•'**********************! 

TST625: 

SCOPE 
MOV 
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1/ no branch 

;;load ro with test number 
;load rl with test instruction word 
;set sob counter = 1 
;go do the sob 

;sob shouldn't have branched here 
;;go to scope call 

;sync INSTR. 
>TEST THE SOB 

***************************************** 



SEQ 0221 



J = 5 t BRANCH 4 TIMES 
**•**%•* *************** 



SOBl: 



S0B5: 



MOV 
MOV 
MOV 

BR 

BR 

NOP 

NOP 

INC 
BEQ 

CCC 
SOB 
TST 

BEQ 

ERROR 
BR 

ERROR 



1625 

w< 

1-5.R5 
jOB2-2 



§°R1 



S0B3 



R5 

SOBERR 



R2,SOB5 
R2 

TST626 

6 

TST626 
6 



SOBERR 

. . ********************** 

;*TEST 626 SOB TEST 

************************ 

TST626: 

SCOPE 
MOV 



2$: 



3$: 



MOV 
MOV 
SCC 

SOB 

BCC 
8VC 
BNE 
BMI 



626, RO 

VM* 1 

R2,2S-2 



5T627 



************** 

>CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

/GET COPY OF TEST INSTRUCTION WORD 

>SET SOB COUNTER = 5 

;SET UP R5 TO COUNT 5 BRANCHES 

;GO DO THE SOB 

;USED BY LAST SOB TEST TO TEST MAX OFFSET 
/OFFSET ADJUSTMENT 



;cqunt one branch 

;br if too many loops by sob 

jscope sync 
;test the sob 
;r2 should contain 
>;br if it does 

;sob counter not zero 

;;go to scope call 

>sob made too many branches 

************ ***************************** 

. CRJ = 1, FLAGS = 1111 

***************************************** 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;SET SOB COUNTER = 1 

;make n:c = 1111 

JTEST THE SOB 

;br IF C = 
;BR IF V = 
;BR IF Z = 
;>BR IF N = 1 

;SOB ALTERED CODES - CLEARED ONE 



CQRDA 
CQKDAC 
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2015 

"P 
[8 



20 

ml 

J38 
2039 
2040 
2041 

w 

M 

2048 

ml 

2051 



2054 

m 

2058 
.2059 



8fo|°o 

043062 
043066 

043070 

8*387? 

043076 
043100 



04 
04; 



1J 6 
122 



043126 
043130 
043132 
043134 

043136 



J162 
043164 
043166 
043170 



000004 

ami 

077202 

181*83 
mm 



043102 104006 



043104 

mm 

043112 



043124 077201 



103003 
102002 
001001 
100401 

104006 



. -146 
043152 
043156 



043160 077277 



mm 

001401 
100001 



i 



TESTS 
09 



. 131^4 

000005 
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T626 SOB TEST, CR3 = 1, FLAGS = 1111 



it 



******* *********** ************ ************** ************* ****** 



>*TEST 627 SOB TEST, CR3 = 1, FLAGS = OQOQ 

' t ********** ********************** ************** 

TST627 



****** *********** 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
CCC 

SOB 

BCS 
BVS 
BEQ 
BPL 

ERROR 



627, RO 
R2,2$-2 



3l 

TST630 



;CALL THE SCOPE LOOP UTILITY 
>;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;SET SOB COUNTER = 1 
;MAKE n:c = 0000 

;TEST THE SOB 

;br if c = 1 

>BR IF V = 1 
;BR IF Z = 1 
;;BR IF N = 

;SOB ALTERED CODES - SET ONE 



a************************************************************** 



;>TEST 630 SOB TEST, CR3 = 5, FLAGS = 1111 

j. ********** ********* **************************** ******* ********* 

TST630: 

>CALL THE SCOPE LOOP UTILITY 

>;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;SET SOB COUNTER = 5 
;MAKE N:C = 1111 



2$: 



3$: 



SCOPE 
MOV 
MOV 
MOV 
SCC 

SOB 

BCC 
BVC 
BNE 
BMI 

ERROR 



630,R0 



R2,2$ 



;TEST THE SOB 

;BR IF C = 
>BR IF V = 
;BR IF Z = 
;;BR IF N = 1 

)SOB ALTERED CODES - CLEARED ONE 



<* 



******* ********************* ******** ********** ****** *********** 



TEST 631 SOB TEST, CR3 = 5, FLAGS = 0000 

. . **************************************************************< 

TST631! 



SOB3: 
SOB4: 



SCOPE 
MOV 
MOV 
MOV 

CCC 

SOB 

BCS 
BVS 
BEQ 
BPL 



I631.R0 
S#S0§4,R1 
S,R2 



R2,S0B1 



/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 

>get copy of test instruction word 
;set sob counter = 5 
;make n:c = 0000 

jtest the sob 

/Bfi IF C = 1 
JBR IF V = 1 

;br if z = 1 
;;BR IF N = 
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104006 
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001010 

000340 

043330 012746 000340 



;SOB ALTERED CODES - SET ONE 



3$: ERROR 

j* 

^- ********************** *************************************«*! 

TST632: 



************** ******************** **************** ************* 

TEST 632 RTS TEST - N:C = 0000 





SCOPE 




MOV 




MOV 




MOV 




MOV 


IS: 


MOV 


MOV 




MOV 




MOV 




CCC 


2$: 


RTS 


3$: 


ERROR 


8R 


4$: 


BMI 


BEQ 




BVS 




BCC 


5$: 


ERROR 


6$: 


CMP 


BEQ 


7$: 


ERROR 


8$: 


CMP 


BEQ 




MOV 




MOV 


9$: 


ERROR 


10$: 


MOV 



#632, RO 
PCS@f$LPERR 

i^- R !sP> 



R4,R3 
8$ 



R5,SP 
TST633 

R5,R4 

sp;r3 



JCALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
>SET ERROR LOOP ADDRESS 
;R3 SHOULD GET 177777 
PRESET SP FOP ERROR LOOP 
;RTS SHOULD LOAD PC FROM CR33 
;RTS SHOULD LOAD R3 WITH 177777 
;N:C = 0000 

;TEST THE RTS - GO TO 4$ 

;RTS FAILED TO LOAD THE PC 
;GO TO EXIT - SCHOOLS OUT 

;N:c = 0000 ? 



;RTS ALTERED CODES - CLEARED ONE 

>DID R3 GET LOADED FROM STACK ? 
>BR IF YES 

;RTS FAILED TO LOAD REG 

;DID RTS POP THE STACK POINTER ? 
;;BR IF YES 



;CR43 = S / B SP 
>CR33 = WAS SP 



JRTS FAILED TO POP SP 
R5,SP ;FIX THE SP 

. • ****** ************ ****** **************** ************** ********* 

?*TEST 633 RTT TEST - N:C = 1111 

j . ***** **************** ********************* ******** ****** ******* 

TST633: 



1$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



»633,R0 
5P,R5 



R2 



PC,||| S LPERR 

#340,R4 
I340;-(SP) 



;call the scope loop utility 
;;load ro with test number 
;l0ad rl with test instruction word 
;dest=psw for 5$ call 
;save the sp 
;set error loop address 
; reset sp for error loop 
;cr43 = s / b psw at htis point 
?new psw s / b = 340 
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12116 

12125 043354 013703 177776 



MACY11 30A(1052) 




12136 

urn 

12139 
12140 
12141 
12142 
12143 
12144 
12145 
12146 
12147 
12148 

\im 

12151 
12152 
12153 

mn 

urn 



!158 
!15? 



12160 
12161 
12162 
12163 

mu 

12166 
12167 
12168 
12169 
12170 
12171 



020506 
001404 

010504 

010603 
104003 



043400 010506 



000004 
01|7g0 

010605 
010737 
010506 
012704 
012746 
012746 
012737 
000257 

043454 000006 



043456 
043460 

043462 
043466 
043470 



104005 
000412 

013703 
020403 
001401 



043472 104001 



043474 
043476 



020506 
001404 



000634 
043454 
177776 

001010 

000017 
000017 
043462 
000340 



177776 



177776 



T633 



2$: 
3$: 

4$: 

5$: 
6$: 



7$: 
8S: 



RTT TEST 

MOV 
CLR 
SCC 



15-NOV 
• l»:C = 



-78 15:26 
1111 
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ERROR 
BR 

MOV 
CMP 
BEQ 

ERROR 

CMP 
BEQ 

MOV 

MOV 
ERROR 



5 

8$ 



mi-* 3 

6$' 
1 

R5.SP 
TST634 

R5,R4 
SP/R3 



R5/SP 



********************** 

TEST 634 RTT TEST 



••*•*•••***•*******••**• 

T5T634: 



#634, RO 

SP/R5 

#017, R4 
#017, -(S 
|4S 4 -(SP 



043500 010504 





SCOPE 




MOV 




MOV 




MOV 




MOV 




MOV 


1$: 


MOV 


MOV 




MOV 




MOV 




MOV 




ccc 


2$: 


RTT 


3$: 


ERROR 


BR 


4$: 


MOV 


CMP 




BEQ 


5S: 


ERROR 


6$: 


CMP 


BEQ 




MOV 



;NEW PC S / B = 4$ 
;CLEAR mi PSW 

>TEST THE RTT - GO TO 4$ 

;RTT FAILED TO LOAD THE PC 
;GO TO EXIT - SCHOOL'S OUT 

>SAVE THE PSU 
>HAS PSW = 340 ? 
;BR IF IT HAS 

>RTT FAILED TO LOAD PSW PROPERLY 

>DID RTT UPDATE THE SP ? 
;;BR IF YES 

;CR43 = S / B SP 
;CR33 = HAS SP 
;RTT FAILED TO UPDATE SP 

;FIX THE SP 
******** ************************ ******** * 

- N:c = 00Q0 

******** ****** ******** **••******•• ******* 

;CALL THE SCOPE LOOP UTILITY 

>JLOAD RO WITH TEST NUMBER 

;L0AD Rl WITH TEST INSTRUCTION WORD 

>DEST=PSW FOR 5$ CALL 

;SAVE THE SP 

ERR ;SET ERROR LOOP ADDRESS 

>RESET SP FOR ERROR LOOP 
;CR43 = S / B PSW AT HTIS POINT 

P) ;NEW PSW S / B = 017 

) ;NEW PC S / B = 4$ 

SW /MAKE CPSW} = 340 

;N:C = 0000 



5 

8$ 

tut-™ 

6$ 



R5,SP 
TST635 

H5,R4 



;TEST THE RTT - GO TO 4$ 

;RTT FAILED TO LOAD THE PC 
>GO TO EXIT - SCHOOL'S OUT 

JSAVE THE PSW 
>WAS PSW = 017 ? 
;BR IF IT WAS 

;RTT FAILED TO LOAD PSW PROPERLY 

>DID RTT UPDATE THE SP ? 
>;BR IF YES 

;CR43 = S / B SP 
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2172 
2173 
2174 
2175 



2178 
"179 
[80 

m 

m 

185 
_186 

mi 
p 



95 

£197" 
198 
[99 
00 



|05 



m 

2218 

mi 



1225 

W 



043502 
043504 



043530 
043534 
043540 



)436C 



602 



043614 
043620 
043622 

SI8 043624 
043630 
043632 
043634 
043640 
043642 

043644 

043646 



010603 
104003 



043506 010506 



043 
043 



000004 
012700 

8P 

012705 
010437 
000257 



043542 006405 

043544 010637 

043550 010206 

043552 104005 

043554 000444 

043556 125252 

43560 010637 

Mi mm 

043570 000436 



013703 

mm 

012702 
104007 
000421 

020627 

mm 

104003 
000410 
020504 



000635 
043542 

125252 
043572 
043556 



001074 



001074 



177776 
001074 

177776 

043560 
043560 



MACY11 30AU052) 
T634 RTT TEST 

MOV 

7$: ERROR 
8$: MOV 
. • ************** 
;*TEST 635 

; • **•*••***••*•* 

TST635: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 



15-NOV-78 15! 
- N'.C = 0000 

SP,R3 
R5/SP 

******* ********* 

MARK INSTRUCTION 
**************** 



26 PAGE 226 



2$: 



6$: 



4$: 



10$: 



MARK+5 



MOV 
MOV 

3$: ERROR 
BR 

125252 



MOV 
MOV 

5$: ERROR 



BR 

BMI 
BEQ 
BVS 
BCC 



MOV 
MOV 
MOV 
MOV 

7$: ERROR 
BR 

8$: CMP 
BEQ 
MOV 
MOV 
MOV 

9$: ERROR 



11$: 



BR 
CMP 



[635, RO 

c "" Rl 



52,R4 

4$,R5 
4,l#6$ 



|P ;i| $REG5 
TST636 



SP ;f| $REG5 

TST636 

10$ 
10$ 
10$ 
8$ 

ft#PSW.R3 

|P5tf,R2 

TST636 

SP § #6$.2 

SP/R3 

TST636 
R5,R4 



;CR33 = WAS SP 

;RTT FAILED TO UPDATE SP 

;FIX THE SP 

****** ************** ****** ******* 

TEST - N:C=0000 
**************** ********** ******* 

/CALL THE SCOPE LOOP UTILITY 

;;LOAD RO WITH TEST NUMBER 

JLOAD Rl WITH TEST INSTRUCTION WORD 

SAVE SP 
;CR53 SHOULD BE 125252 
JMARK GOES TO 4$ VIA CR53 
JINJTJA^IZE WORD LOADED INTO R5 

?TEST THE MARK 

;SAVE BAD SP FOR PRINTING 
;RESET SP 

)mark failed to execute 
;;go to scope exit 

;this word should get loaded into r5 

>save bad sp for printing 
Preset sp 

jmark failed to load rc from cr53 

;;go to scope exit 

;N:C=0000? 



;SAVE FLAGS IN R3 

;SAVE BAD SP FOR PRINTING 

5RESET SP 

;DEST=PSW 

;MARK SET A FLAG 

;>GO TO SCOPE EXIT 

;DID MARK RESET SP? 

;BR IF YES 

;PUT BAD SP IN R3 

>S/B SP 

>RESET SP 

JMARK FAILED TO RESET SP 

>;GO TO SCOPE EXIT 

JDID MARK RESTORE OLD R5 
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001405 



34 

P 
37 

ii 

40 
41 
42 
243 

in 
*? 

I 

254 

ii 
II 

2264 
22 65 
2266 

mi 

2269 
2270 

p 

2273 
"4 




010206 



043666 
2^3666 
043670 
043674 
043700 
043702 
043706 
043712 
043716 

043720 006405 



043722 

mm 



010637 
010206 
104005 



043732 000444 
043734 125252 



043736 
043742 
043744 



010637 
010206 
104005 



043746 000436 



001074 



000636 
043720 

04lp 2 
043734 



001074 



001074 
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15:26 PAGE 227 
- N:C=0000 




SEQ 0226 




BEQ 


12$ 


;br IF YES 








MOV 
MOV 
MOV 

ERROR 


SP,j»|$REG5 
4 


>SAVE BAD SP 

>RMO Vi»Ji 

;reset sp 
;mark failed 


FOR PRINTING 
TO RESET R5 




12$: 


MOV 


R2/SP 


;RESET SP 







U** ********* ***************************************** *********** 
, TEST 636 MARK INSTRUCTION TEST - N:C=1111 

********************* ************************* ******************* 

TST636: 

;C ALL THE SCOPE LOOP UTILITY 
>>LOAO RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE SP 

;CR53 SHOULD BE 125252 
/MARK GOES TO 4$ VIA CR53 
INITIALIZE WORD LOAOED INTO R5 
>N:C=1111 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SCC 



*636,R0 
*4*§#6$ 



2$: 



3$: 



6$: 



5$: 



4$! 



7$: 



8$: 



MARK>5 

MOV 
MOV 
ERROR 

BR 

125252 

MOV 
MOV 
ERROR 

BR 

BPL 
BNE 
BVC 
BCS 

MOV 
MOV 
MOV 
MOV 

ERROR 
BR 

CMP 
BEQ 
MOV 
MOV 
MOV 
ERROR 



SP,gpEG5 

5 

TST637 



SP,g#$REG5 

R2,SP 

5 

TST637 

7$ 
7$ 
7$ 
8$ 

g#PSW,R3 

jjpSW, R2 

TST637 

SP,ff6$+2 

SP,R3 
#6§-t-2,R4 

! 2 ' SP 



;TEST THE MARK 

JSAVE BAD SP FOR PRINTING 
} RESET SP 

/MARK FAILED TO EXECUTE 

j;GO TO SCOPE EXIT 

;THIS WORD SHOULD GET LOADED INTO 

;SAVE BAD SP FOR PRINTING 
}RESET SP 

;MARK FAILED TO LOAD RC FROM CR53 
J>GO TO SCOPE EXIT 

;n:c=H11 



JSAVE FLAGS IN R3 

;SAVE BAD SP FOR PRINTING 

;RESET SP 

;DEST=PSW 

;MlRK SET A FLAG 

>?GO TO SCOPE EXIT 

;DID MARK RESET SP? . 

;BR IF YES 

>PUT BAD SP IN R3 

;S/B SP 

;RESET SP 

;MARK FAILED TO RESET SP 
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000410 




044106 000004 



061220 000004 



010506 

012737 061220 000004 



|32 044152 

134 044154 

044156 
044160 



r 2338 
[2339 



000257 



030412 
001002 

mm 
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BR TST637 ;;GO TO SCOPE EXIT 

9$: CMP R5/R4 ;DID MARK RESTORE OLD R5 

BEQ 10$ ;BR IF YES 

MOV SP/»#$REG5 ;SAVE BAD SP FOR PRINTING 

MOV R5,R3 ;WAS DEST 

MOV R2/SP >RESET SP 

ERROR 4 ;MARK FAILED TO RESET R5 



SEQ 0227 



10$ 

; 



MOV R2,SP JRESET SP 

********** ********************************************** ******* 

37 BASIC LINE CLOCK RESPONSE TEST 

********* ********************* ********* 



'TEST 637 
= • ** ****** 

TST637: 

SCOPE 



1$: 



2$: 



6$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

TST 

BR 

MOV 
ERROR 

MOV 
MOV 



;c all the scope loop utility 

*637,r0 jjload so with test number 

s#2$/r1 ;load rl with test instruction word 

sp,r5 jsave sp 

|lkcsr/r2 >cr23 = line clock address 

pc/a#$lperr ;set error loop address 

r5/sp ;reset sp for error loop 

#4$,8#4 ;go to 4$ if bus timeout 

; scope sync 

(r2) ^reference lkcsr addr 

6$ >go to exit 

sberr,8#4 /restore timeout vector 

6 ;LKCSR FAILED TO RESPOND 

R5/SP JRESET SP 

#8ERR,@#4 )RESTORE TIMEOUT VECTOR 



;*TEST 640 



. . LINE CLOCK TEST - LKCSR BIT 7 SET 

^ ************ *********** *•••*•***•*********•*•********••**••••*•* 

TST640: 

;CALL THE SCOPE LOOP UTILITY 
|640, RO ;;LOAD RO WITH TEST NUMBER 

9#2$/Rl /LOAD Rl WITH TEST INSTRUCTION WORD 

SLKCSR/R2 /DEST ADDR = 177546 

I200/R4 JCLKCSR1 S / B = 200 

; SCOPE SYNC 



SCOPE 

MOV 

MOV 

MOV 

MOV 

CCC 



2$: 



3$: 



BIT 
BNE 



MOV 
ERROR 



R4,(R2) 
TST641 



jR2)/R3 



;TEST BIT 7 IN LKCSR 

j;BR IF IT'S SET 

;GET WAS DATA 

;BIT 7 NOT SET IN LKCSR 



> ******************* *************** ****************** *********** 
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L23E 



123f 
123 



044162 
044162 
044J64 
044170 
044174 
044200 
044204 

044206 

044212 

044214 
044216 



044220 
044220 
044222 
044226 

nmi 

044240 
044244 
044250 
044256 
044264 
044266 
044274 



044332 
044332 
044334 
044340 
044344 
044346 



mm 

013701 
012702 

8J^?57 

032712 

001402 

011203 
104001 



000004 
012700 
013701 

mm 

012704 

mm 

012737 
010506 
012737 
000257 



044276 052712 




000004 
012700 
013701 
010605 
012702 



000641 
044206 
177546 
000200 



000100 



000642 
044276 

177546 
000300 
001010 

044312 000100 
000340 000102 

000340 177776 
000100 



000102 000100 

888188 



000643 
044406 



177546 
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T641 LING CLOCK TEST - LKCSR BIT 6 CLEAR 

;*TEST 641 LINE CLOCK TEST - LKCSR BIT 6 CLEAR 

• • ••*******••*• ••••**•**•*** I ********** ***•***•••** 

T5T641 



SEQ 0228 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 

BIT 

BEQ 

MOV 

ERROR 



#641, R0 

|EkC5R,R2 
#200, R4 

#100, (R2) 
TST642 
JR2),R3 



*************** 

;C ALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
>R2 POINTS TO LKCSR 
;CLKCSR3 S / B = 200 
/SCOPE SYNC 

;TEST BIT 6 IN LKCSR 

;;BR IF CLEAR 

/GET MAS DATA 

;BIT 6 (INTR. ENAB.) IN LKCSR HAS SET 



3$: 

• . *************************************************************** 

>*TEST 642 LINE CLOCK TEST - LKCSR BIT 6 SET 

j.*************************************************************** 

TST642: 

/CALL THE SCOPE LOOP UTILITY 
;>LOAD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 



1$: 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

BIS 

CMP 
BEQ 

MOV 

ERROR 

BIC 
CLR 
BIC 
MOV 



#642, RO 

#LKCSR,R2 
#300, R4 

|3i6 f ?#102 
#340,g#PSW 

#100, (R2) 

R4, (R2) 
45 

p2),R3 
#102,90100 

IS 2(r2) 



JSAVE SP 

$R2 pc - " 



. _ POINTS TO LKCSR 
;CLKCSR3 S / B = 300 
;SET ERROR LOOP ADDRESS 
>SET UP LCLK VECTOR IV CASE LOGIC 
JFAULT CAUSES ATL INTERRUPT 
; RESET SP FOR ERROR LOOP 
>SET PRIORITY TO LEVEL 7 
JSCOPE SYNC 

;SET BIT 6 IN LKCSR 

;RESULT CORRECT? 
} BR IF YES 

;GET WAS DATA 

;BIT 6 FAILED TO SET IN LKCSR 

/RESTORE TRAP CATCHER IN LINE CLOCK VECTOR 

;TURS OF LINE CLK INTR. ENAB. 
/RESET SP 



• • *************************************************************** 

;*TEST 643 LINE CLK BASIC INTERRUPT TEST 

********************************************************* ****** 

T5T643: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #643, RO ;;LOAD RO WITH TEST NUMBER 

MOV e#2S,Rl ;LOAD Rl WITH TEST INSTRUCTION WORD 

MOV SP,R5 JSAVE SP 

MOV #LKCSR,R2 ;R2 POINTS TO LKCSR 
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241« 



J43S 



044352 
044356 
044360 
044362 
044370 
044376 
044400 
044404 


010737 
010506 
005004 
012737 

005037 
000257 


001010 

044424 
000340 

177776 


000100 
000102 


044406 


052712 


000100 




044412 
044414 


005304 
001376 






044416 
044422 


042712 
104006 


000100 




044424 
044430 
044436 
44442 
044444 


i\m 

005037 

mm 


000100 

000102 
000102 

177776 


000100 



044450 
044450 
044452 
044456 
044462 
044470 
044474 
044502 
044506 



mm 

013701 
012737 

o|p3? 

00027? 



000644 
044510 

000001 001110 



177776 



H7564 
OOOOO^ 



044510 000005 



044512 
044516 
044522 




005037 
042737 



177776 

000004 177564 
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T643 LINE CLK BASIC INTERRUPT TEST 



SEQ 0229 



1$: 



2$: 



3$: 
4$: 



MOV 
MOV 
CLR 
MOV 
MOV 
CLR 
CLR 
CCC 

BIS 

DEC 
BNE 

BIC 
ERROR 

BIC 
MOV 
CLR 
MOV 
CLR 



PC,ft#$LPERR ;SET ERROR LOOP ADDRESS 

R5,SP ; RESET SP FOR ERROR LOOP 

R4 INITIALIZE TIMER 

4$<@#100 ;SET UP LINE CLOCK VECTOR TO TO 

340, §#102 ;TO 4S WITH PROCESSOR PRIORITY = 7 

_R2) ;CLEAR LKCSR 

@#PSW >SET PRIORITY TO LEVEL 000 
;SCOPE SYNC 

#100, (R2) ;ENABLE LINE CLK INTERRUPT 

R4 ?WAIT FOR INTR - REPORT ERROR IF 

.-2 ;R4 GOES TO 000000 

#100,(r2) ;turn off intr. enab. 

6 /line clk failed to interrupt 

(r2) ;turn off intr. enab. 

§#100 ; restore trap catcher in line clk vector 

;reset sp 

jreset priority to level 



#10 

§#102 
R5,SP 
§#PSM 



. . ****************************************************** ********* 
>*TEST 644 RESET TEST - HiC = 1111 

j • *************************************************************** 

T5T644: 

/call the scope loop utility 
;;load r5 with test number 
;load rl with test instruction word 
?no iterations on this test 
;r2 points to dl11 xcsr 

;mIkE PRTY. BITS ALL 1*S 
;SET THE DL11 MAINT. BIT 
>N:C = 1111 



2$: 



3$: 
4$: 



5$: 
6$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
SCC 

RESET 

MOV 
BIT 

BEQ 

BIC 
ERROR 

CMP 
BEQ 

MOV 
MOV 

eSror 

CLR 
BIC 



|644,R0 
»#2S,R1 



|XCi 
l4i 



|$TIMES 



|340 / B#PSW 



,<R2) 
57, R5 



;TEST THE RESET - IT SHOULD CLEAR THE DL11 MAINT BIT 

;SAVE THE PSN 

;DID MAINT. BIT CLEAR ?? 

/BR IF YES 

/MAKE SURE TO TURN OFF MAINT. BIT 
>RESET FAILED TO CLEAR MAINT BIT 



ALTER THE PSW ?? 



JPSW,R2 

e#psw 

#4,9#XCSR 



>DID RESET 
;BR IF NOT 

;CR43 = S/B PSW 
JCR33 = WAS PSN 
;DEST = PSW 

>RESET ALTERED THE PSW 

>CLEAR OUT THE PSW 

;MAKE SURE MAINT BIT IS OFF 
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000645 
Q44624 

001 001110 
4 



005037 177776 
042737 000004 177564 



177564 

"If Jo 



5064 
50 66 



MACY11 
T645 

;;*•** 

J "TEST 
,,**** 

TST645 



30A(10 
RESET 

******* 

*$J5*** 



52) 15-MOV-78 15:26 PAGE 231 
TEST - H:C = 0000 

**************************************************** 

RESET TEST - NSC = 0000 
•••*•*•••** ******** ******** 



SEQ 0230 



PE 



2$: 



3$: 
4$: 



5$: 
6$: 



m 

MOV 
MOV 
MOV 
CLR 
BIS 
CCC 



RESET 

MOV 
BIT 

BEQ 

BIC 
ERROR 

CMP 
BEQ 

MOV 
MOV 
MOV 

ERROR 

CLR 
BIC 

*********** 



»645,R0 
|XCSS,R2 



MES 



!#PSW,R5 
J,(r3) 

14, (R2) 



£0,R5 
»PSW,R2 



tPSW 

t,9#XCSR 



k ***************** ********** 

;CALL THE SCOPE LOOP UTILITY 

;>LOAD RO WITH TEST NUMBER 

;LOAO Rl WITH TEST INSTRUCTION WORD 

>NO ITERATIONS ON THIS TEST 

;R2 POINTS TO DL11 XCSR 

J MAKE PRTY. BITS ALL O'S 

;SET THE DLll MAINT. BIT 

;n:c = 0000 

JTEST THE RESET - IT SHOULD CLEAR THE DL11 MAINT BIT 

;SAVE THE PSW 

}D|D MAINT. BIT CLEAR ?? 

>BR IF YES 

>MAKE SURE TO TURN OFF MAINT. BIT 
;RESET FAILED TO CLEAR MAINT BIT 

;DID RESET ALTER THE PSW 7? 
>BR IF NOT 

;CR4D = S/B PSW 
;CR33 = WAS PSW 

;dest = psw 

JRESET ALTERED THE PSW 

;CLEAR OUT THE PSW 

JMAKE SURE MAINT BIT IS OFF 



J* 
• . *5»* 

TST646 



1$: 



**************************************************** 

646 WAIT INSTRUCTION TEST - CPSW3 = 151 

***************** ********************** ****$************** 



3$: 



000440 



044762 012737 000140 177776 5$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

TSTB 
BMI 

DEC 
BNE 
BR 

MOV 



8646/RO 
lift" 

5#SP 

R§> 

5S 2) 
R3 
3S 
9$ 

#140 / ia#Psw 



>CALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 

;L0AD Rl WITH TEST INSTRUCTION WORD 

;SAVE THE SP 

>SET ERROR LOOP ADDRESS 

;R2 POINT TO DLll XCSR 

;GO TO 4$ ON DLll INTR. 

} AT LEVEL 4 

J RESET SP FOR ERROR LOOP 
;INIT DL11 XCSR 
;INIT TIMER 

;DL11 XMIT READY SET ?? 
>BR IF YES 
>COUNT THE TIMER 
?BR IF NO TIMEOUT 
;GO REPORT TIMEOUT 

;SET PSW PRTY BITS TO LEVEL 3 
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000277 
152712 

000001 




000100 



000340 177776 



000100 
045000 



000151 
000002 
177776 



177776 



000066 
000066 



000 
045 



1^564 

mm 



000064 



MACY 
T646 



2$: 



4$: 



000151 000002 6$: 



7$: 

9$: 
8$: 



j*TE 

tst" 



1$: 



3$: 



11 30A(10 
WAIT 

SCC 
BISB 

WAIT 

MOV 
CLR 
ERROR 
BR 

BIC 
CMP 
BEQ 

ERROR 
BR 

CMP 
BEQ 

MOV 

MOV 

MOV 

ERROR 

BR 

ERROR 

MOV 
CLR 
CLR 
MOV 
CLR 

********* 

ST 647 
•••*•**** 

47: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

TSTB 

BMI 

DEC 

BNE 

BR 



52) 15-NOV-78 
INSTRUCTION TEST 



#100,(R2) 



|340/9tiPSW 
(R2) 



#100, (R2) 
|2S+2,(SP) 



6 

as 

i! 51 ' 2(SP) 

pSM,ft2 

8$ 
6 

R5,SP 
9#PSW 
(R2) 

**************** 

WAIT INSTRUCT 
************* 



#647/ RO 

R5#SP 
(R2) 

R3 



15:2 
- C 



6 PAGE 232 
PSW] = 151 



SEQ 0231 



>N:C=1111 
?ENAB. DL11 INTR 



N:C=1001 

;TEST THE WAIT-GO TO 4S ON INTR 

>LOCK OUT INTR 

; TURN OFF DLll INTR ENAB 

JWAIT FAILED TO EXECUTE PROPERLY 

;GO EXIT THIS TEST 

/TURN OFF DLll INTR ENAB 

;did wait get fetched ?? 

>8R IF YES 

JWAIT NOT FETCHED PROPERLY 
;GO EXIT THE TEST 

;DID "WAIT" ALTER THE PSW ?? 
>BR IF YES 

JCR43 = S/3 PSW 
KR33 = WAS PSW 
>DEST = PSW 

;"WAIT" ALTERED THE PSW 
;GOT TO EXIT TEST 

;DL11 FAILED TO SET READY ON TIME 

;RESET THE SP 
JCLEAR OUT THE PSW 
;TURN OFF DL11 INTR. 

JRESTORE DL11 VECTOR WITH TRAPCATCHER 



************************************ 

ION TEST - CPSWD = 010 _ ^ 

************************************ 

;C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
>SAVE THE SP 
;SET ERROR LOOP ADDRESS 



;R2 POINT TO DLll XCSR 
;G0 TO 4S ON DLll 
> AT LEVEL 4 



N DLll INTR. 



R2) 



JRESET SP FOR ERROR LOOP 
MNIT DLll XCSR 
;INIT TIMER 

>DL11 XMIT READY SET ?? 
>BR IF YES 
>COUNT THE TIMER 
>BR IF NO TIMEOUT 
;G0 REPORT TIMEOUT 
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MACY11 30A(1052) 15-NOV-78 15 
WAIT INSTRUCTION TEST - 



nit 

12585 



1261d 
12617 
1261* 
1261§ 



045166 
045172 
045174 

045200 000001 



045202 
045210 

851 111 

045216 
045222 
045226 

045230 
045232 

045234 
045242 

045244 
045250 
045254 
045260 
045262 



045266 
045270 
045274 
045276 
045304 



005037 
000257 
152712 



042712 
022716 
001402 

104006 
000415 

022766 
001411 

012704 
016603 
012702 
104001 
000401 



045264 104006 



045310 
045310 
045312 
045316 
045322 
045324 
045330 
045334 
045342 
045350 
045352 
045354 
045362 



045364 052712 



010506 
005037 
005012 
012737 
005037 



000004 

mm 

010605 
010737 
012702 
012737 
012737 
010506 
005004 
012737 
000257 



177776 
000100 



012737 000340 177776 



000100 
" 3202 



0452 



000010 
000002 
177776 



177776 



001010 
1775'- 



T647 

5$: 



2$: 



4$: 



000010 000002 6$: 



7$: 

9$: 
8$: 



000066 000064 
000066 



000650 
045364 



CLR 
CCC 
BISB 

WAIT 

MOV 
CLR 
ERROR 
BR 

BIC 
CMP 

BEQ 

ERROR 
BR 

CMP 
BEQ 

MOV 
MOV 
MOV 

ERROR 
BR 

ERROR 

MOV 
CLK 
CLR 
MOV 
CLR 



8#PSW 
#100,(R2) 



»340,8#PSW 

[R2) 



J100,(R2) 
|$*5,csP) 



-2(SP) 

#010<R4 

5<SP),R3 

|PSW,R2 

8$ 



R5.SP 
BflPSW 
IR2) 



:26 PACE 233 
CPSW3 = 010 

>SET PSW PRTY BITS TO LEVEL 
>N:C=0000 

;ENAB. DL11 IHTR - H:C=1000 

/TEST THE WAIT-GO TO 4$ ON INTR 

;LOCK OUT INTR 

/TURN OFF DLll INTR EN AB 

JWAIT FAILED TO EXECUTE PROPERLY 

)GO EXIT THIS TEST 

;TURN OFF DL11 INTR EN AB 
;DID WAIT GET FETCHED ?? 
;BR IF YES 

;WAIT NOT FETCHED PROPERLY 
>GO EXIT THE TEST 

;DID "WAIT" ALTER THE PSW ?? 
;br IF NO 

;CR43 = S/B PSW 
;CR33 = WAS PSW 

;dest = psw 

;"wait" altered the psw 
;got to exit test 

/dlll failed to set ready on time 

;reset the sp 
;clear out the psw 

;TURN OFF DLll INTR. 

JRESTORE DLll VECTOR WITH TRAPCATCHER 



SEQ 0232 



i ********************** ******** 



>*TEST 650 BR PRIORITY ARB 

j . ***************************** 

TST650 



- 546 

045402 000100 
000340 000102 



000040 177776 
000100 



1$: 



2$: 



045370 
045372 



005304 
001376 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 

BIS 

DEC 
BNE 



#650/R0 

fcis R1 

R4 

#40,§#PSW 



»100/(R2) 



R4 
.-2 



a******************************* 

ITRATION TEST - LEVEL 1 USING LINE CLK 
********************************** 

/call the scope loop utility 

;;load ro with test number 

/load rl with test instruction word 

>save the sp 

;set error loop address 

;r2 points to line clk csr 

;if intr occurs - go to 4$ 

jwith cpu priority at level 7 

/reset sp for error looping 

initialize r4 as timer 

jset cpu priority to level 1 

;scope sync 

/enable line clk interrupts 

>count the timer - lclk should prevent 
;timer from getting back to 000000 
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CQKDAC.P11 07-NOV-78 14:09 T650 BR PRIORITY ARBITRATION TEST - LEVEL 1 USING LINE CLK SEQ 0233 

itltl 9i?ll? 000100 BIC #100, (R2) /TURN OFF THE INTERRUPT ENABLE 

12622 045400 104006 3$: ERROR 6 /LINE CLK FAILED TO INTR AT LEVEL 1 

12623 

12624 045402 042712 000100 4$: BIC #100, (R2) ;TURN OFF INTR. ENABLE 
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mm 

177776 



MACY11 30A(1052) 15-NOV-78 
T650 BR PRIORITY ARBITRAT 




012737 
000257 



045620 
045624 



000100 



045520 000100 

000340 000102 

000100 177776 

000100 



000100 



000652 
045620 

001010 
177546 

045636 000100 
000340 000102 



000140 177776 
052712 000100 



MOV 
CLR 
MOV 
CLR 



renoo 



R5,SP 

e#psw 



15:26 PAGE 235 
ION TEST - LEVEL 1 USING LINE CLK 

JRESTORE TRAP CATCHER IN THE VECTOR 

J RESET THE SP 

JSET CPU PRIORITY BACK TO LEVEL 



> ************* 



>J* 

/"TEST 651 BR PRIORITY 

• • ************************** 

TST651 



** *** *************** ** *************************** 



1$: 



2$! 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 

BIS 

DEC 

bnf: 

BIC 
ERROR 

BIC 
MOV 
CLR 
MOV 
CLR 



MIr^"* 




;CALL THE SCOPE LOOP UTILITY 
JjLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
>SET ERROR LOOP ADDRESS 
;R2 POINTS TO LINE CLK CSR 
JIF INTR OCCURS - GO TO 4f 



JWITH CPU PRIORITY AT LEVEL 
JRESET SP FOR ERROR LOOPING 
; INITIALIZE R4 AS TIMER 



#100,(R2) 




• . ********** ****** ********** 

?*TEST 652 BR PRIORITY 

•<•****••****• ************** 

TST652: 



IS: 



2$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 

BIS 

DEC 



#652, RO 

R5,SP 
K4 

#140,I?#PSW 

#100,(R2) 
P4 



;SET CPU PRIORITY TO LEVEL 2 
>SCOPE SYNC 

/ENABLE LINE CLK INTERRUPTS 

;C0UNT THE TIMER - LCLK SHOULD PREVENT 
/TIMER FROM GETTING BACK TO 000000 

J TURN OFF THE INTERRUPT ENABLE 
/LINE CLK F AILED TO INTR AT LEVEL 2 

JTURN OFF INTR. ENABLE 
;RESTURE TRAP CATCHER IN THE VECTOR 

/RESET THE SP 

;SET CPU PRIORITY BACK TO LEVEL 
****************************** ******* 

ARBITRATION TEST - LEVEL 3 USING LINE CLK 
************************************* 

JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
jLOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
;SET ERROR LOOP ADDRESS 
;R2 POINTS TO LINE CLK CSR 
JIF INTR OCCURS - GO TO 4$ 
;WITH CPU PRIORITY AT LEVEL 7 
; RESET SP FOR ERROR LOOPING 
JINITIALIZE R4 AS TIMER 
JSET CPU PRIORITY TO. LEVEL 3 
JSCOPE SYNC 

;ENABLE LINE CLK INTERRUPTS 
;C0UNT THE TIMER - LCLK SHOULD PREVENT 



12716 



045626 


001376 




045630 


042712 


000100 


045634 


104006 




045636 


042712 


000100 


045642 


012737 


000102 


045650 


005037 


000102 


045654 


010506 




045656 


005037 


177776 
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2681 
2682 
2683 
2684 

2686 
2687 
2688 
2689 
2690 

3lli 

2695 
2696 
2697 

2$ 9 8 
2699 
2700 
2701 

M 

704 

"5 
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000653 
045736 

001010 
177546 
045754 
000340 



mm 

000102 
177776 



000654 
046054 

mm 

046072 
000340 



000100 



888188 



000200 177776 
000100 



000100 



000100 



8881 00 



T652 



3$: 
4$: 



BR PRIORITY ARBITRATION TEST - LEVEL 3 USING LINE CLK 

JTIMER FROM GETTING BACK TO 000000 



BIC 

ERROR 

BIC 
MOV 
CLR 
MOV 
CLR 



• • * * * * * * * * * * * * * * * * * * * 

J*TEST 653 BR PR 

..******************* 

TST653: 

SCOPE 
MOV 
MOV 
MOV 
MOV 

1$: mov 

MOV 
MOV 
MOV 
CLR 
MOV 
CCC 



(R2) 



<R2) 

: <a#ioo 



2$: 



3$: 
4$: 



BIS 

DEC 
BNE 

BIC 
ERROR 

BIC 
MOV 
CLR 
MOV 
CLR 



Sioo, 

|102/ 

H02 

K3/SP 

@#PSW 



02 



• . ******************* 

>*TEST 654 BR PR 

• • ******************* 

TST654: 

SCOPE 
MOV 
MOV 
MOV 
MOV 

l$: mov 

MOV 
MOV 
MOV 
CLR 



;TURN OFF THE INTERRUPT ENABLE 
;L INE CLK FAILED TO INTR AT LEVEL 3 

; TURN OFF INTR. ENABLE 
JRESTORE TRAP CATCHER IN THE VECTOR 

JRESET THE SP 

;SET CPU PRIORITY BACK TO LEVEL 
******************************************** 

IORITY ARBITRATION TEST - LEVEL 4 USING LINE CLK 
******************************************** 

JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JSAVE THE SP 
JSET ERROR LOOP ADDRESS 
JR2 POINTS TO LINE CLK CSR 
J IF INTR OCCURS - GO TO 4S 
JWITH CPU PRIORITY AT LEVEL 7 
/RESET SP FOR ERROR LOOPING 
JINITIALIZE R4 AS TIMER 
JSET CPU PRIORITY TO LEVEL 4 
JSCOPE SYNC 

J ENABLE LINE CLK INTERRUPTS 

JCOUNT THE TIMER - LCLK SHOULD PREVENT 
/TIMER FROM GETTING BACK TO 000000 

JTURN OFF THE INTERRUPT ENABLE 
J LINE CLK FAILED TO INTR AT LEVEL 4 

JTURN OFF INTR. ENABLE 
JRESTORE TRAP CATCHER IN THE VECTOR 

JRESET THE SP 
JSET CPU PRIORITY BACK TO LEVEL 

*************************** ***************** 

IORITY ARBITRATION TEST - LEVEL 5 USING LINE CLK 
*********** ************************** ******* 

JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JSAVE THE SP 
JSET ERROR LOOP ADDRESS 
JR2 POINTS TO LINE CLK CSR 
IF INTR OCCURS - GO TO 4< 





WITH CPU PRIORITY AT LEVEL 
RESET SP FOR ERROR LOOPING 
INITIALIZE R4 AS TIMER 



CQKDA-C KD11- 
CQKDAC.PU 
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000655 
046204 



020000 063234 



001010 
177546 

046216 0QQ100 
000340 000102 



000300 177776 
000100 



000100 



000100 
0001 " 
0001 

177776 



00010| 000100 
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test - level 5 using line clk 

;set cpu priority to level 5 
) scope sync 

; enable lime clk interrupts 

j count the timer - lclic should prevent 
}timer from getting back to 000000 

;turn off the interrupt enable 
;line clk failed to intr at level 5 

/turn off intr. enable 
;restore trap catcher in the vector 

; reset the sp 

;set cpu priority back to level 

******************************************************* 

BR ^2SIS8KX *R8IIRATIQH TEST - LEVEL 6 USING LINE CLK 
******************** ********** ************ ******* 



14:09 




T654 


BR PRIORITY ARBITRATION 


000240 


177776 




MOV 
CCC 


#240,«#PSW 


000100 




2$: 


BIS 

DEC 
BNE 


#100, (R2 ). 

R4 
.-2 


000100 




3$: 


BIC 
ERROR 


|100,(R2) 


000100 
000102 
000102 

177776 


000100 


4$: 


BIC 
MOV 
CLR 
MOV 
CLR 


Ml 

i#PSW 



! *******1 



;*TEST 655 
? £*****•**••* 



T655: 



SCOPE 
MOV 
MOV 



655, RO 



1$: 



2$: 



6$: 



BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
HOV 
CCC 

BIS 

DEC 
BNE 
BR 

BIC 
ERROR 

BIC 
MOV 
CLR 
MOV 
CLR 




.SBTTL USER CONTROLLED BREAKPOINT ~ BIT13 
",g#BPTLOC JBREAKPOIN 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 

OAD Rl WITH TEST INSTRUCTION WORD 



SP,R5 

P | £KCsiJ P R| RR 




#100, (R2) 




{100, 
\02i 
102 
n a,SP 
g#PSW 



. _reakpoint halt set ?? 
;br if not 
; break- depress continue to continue 
;save the sp 
;set error loop address 
;r2 points to line clk csr 
;if intr occurs - go to 4$ 
;with cpu priority at level 7 
; reset sp for error loop 
/initialize r4 as timer 
;set cpu priority to level 6 
;scope sync 

; enable interrupts 

;c0unt until cr43 = 000000 - then 
;continue - no interrupt should occur 
;go to exit - all ok 

;turn off the intr enable 

; intr occurred with cpu at level 6 

;turn off intr enable 

jreset the trap catcher in the vector 

j reset sp just in case 

jset cpu priority back to level 



• • *************************************************************** 

;*TEST 656 BR PRIORITY ARBITRATION TEST - LEVEL 7 USING DL11 

; ; ****** ************************* ******* ************** *********** 
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000656 
046324 




177776 



000064 



000100 
000102 



177776 
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T656 BR PRIORITY ARBITRATION TEST - LEVEL 7 USING DL11 

TST656: 



IS: 



2$: 



III 
6$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CCC 

BIS 



#656, RO 
PCiaiSLPERR 

#xcsr;r2 

#4S < @|64 
R4 

#340,g#PSW 



SL 7 



#100, (R2) 



DEC R4 
BNE .-2 
BR 6$ 



;CALL THE SCOPE LOOP UTILITY 
J/LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
>SET ERROR LCOP ADDRESS 
;R2 POINTS TO DL11 XCSR 
;IF INTR OCCURS - GO TO 4$ 
>WITH CPU PRIORITY AT LEVE 
>R£SET SP FOR ERROR LOOP 
; INITIALIZE R4 AS TIMER 
;SET CPU PRIORITY TO LEVEL 7 
JSCOPE SYNC 

/ ENABLE INTERRUPTS 

>C0UNT UNTIL CP43 = 000000 - THEN 

> CONTINUE - NO INTERRUPT SHOULD OCCUR 

>GO TO EXIT - ALL OK 



BIC 
ERROR 

BIC 
MOV 
CLR 
MOV 
CLR 



*100,(R2) 



sir 



TR 



3FF 
DCCU 



THE INTR ENABLE 

RRED WITH CPU AT LEVEL 7 



#100, (R2> 

lis** 64 

R5,sp 

8#PSW 



;TURN OFF INTR ENABLE 

JRESET THE TRAP CATCHER IN THE VECTOR 

;RESET SP JUST IN CASE 

;SET CPU PRIORITY BACK TO LEVEL 



************************************************************** 

TEST 657 "CLR 



;*TEST 657 "CLR fl# 

JTHIS TEST VERIFIES THAT ... 

;IS EXECUTED TO LOWER THE CPU PRIORITY, TH 
JEXECUTION OF THE INSTRUCTION FOLLOWING TH 
• • **************************************** 

TST657: 



PSW" ALLOWS IMMEDIATE BR-BG-INTR SEQUENCE 
IF A "BR" REQUEST IS PENDING WHEN A "CLP gfPSW 
~HE REQUEST IS GRANTED BEFORE 
"CLR" 

••a****************** 



IS! 



US: 



12$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOV 
BIS 
BIC 
TSTB 
BMI 
DEC 
BNE 
BR 
CCC 




/call the scope loop utility 
;;load ro with test number 
>lqad rl with test instruction word 
;r2 points to line clk csr 
;save the sp 
;set error loop address 
;set up lclk vector to go to 4$ 

jreset the sp for error looping 
; initialize timer fo kw 
;clear software flag 
;lock out all injrs 
; enable lclk intrs 
klear line clock ready 
;lclk ready to intr ?? 

>BR IF YES 
JCQUNT THE TIMER 
JBR IF NO TIMEOUT 
>GO REPORT TIMEOUT 
JSCOPE SYNC 
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T657 "CLR e#PSW" ALLOWS IMMEDIATE BR-BG-INTR SEQUENCE 



SEQ 0238 



005103 




000100 
000200 



000100 



mm 

000064 
000066 

177776 



2$: 
4$: 
3$: 

III 

8$: 



CLR 

COM 
CLR 
TST 

BEQ 

ERROR 

BR 

CLR 
ERROR 

MOV 
MOV 
CLR 



§#PSW 

R3 

9$ 



>ALLOW INTRS - LCLK SHOULD INTERRUPT 
;BEFORE FETCHING NEXT INSTRUCTION 
?SHOULD NOT BE FETCHED 
JDISABLE THE LCLK INTR 
>DID SOFTWARE FLAG GET SET ?? 



8$ 
6 R 



2) 



|i^ $ ##ioo 



;BR IF NOT - IT WORKED OK 
>LCLK FAILED TO INTR ONTIME 
)QO EXIT 

JDISABLE LCLK INTR 
jLINE CLK TIMED OUT 

;reset the sp 

jrestore the line clk trapcatcher 



*********** 



. . *************************** ************************* i 

; fc test 660 "br6 vs br4 m priority arbitration test 
jthis test verifies that if both a "ar4" and a «br6" request are 
Spending when the cpu priority is lowered to allow intrs. that "br6" 
>request is granted first even though the "br4" request may have 
joccurred first 

« *********************** ************** **************** *********** 

TST660: 

;C ALL THE SCOPE LOOP UTILITY 
;;L0AD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
JSAVF. THE SP 
;SET ERROR LOOP ADDRESS 
JR2 POINTS TC LINE CLK.CSR 
JR3 POINTS TO DL11 XCSR 
>SET UP THE LCLK VECTOR - GO TO 4$ 



11$: 



12$: 
13$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
BIS 
TSTB 
BMI 
DEC 
BNE 
BR 

CLR 

BIS 

BIC 

TSTB 

BMI 

DEC 

BNE 

BR 




PC,g#$LPERR 
#LKCSR,R2 
#XCSR f R3 

|4$#8|100 
206^f?#66 

i!«bW sw 

Pmbufi 

J1^(R3) 

H $ 
R4 

#100, (R2) 

§200,<R2> 

(R2) 

14$ 

R4 

13$ 

7$ 



;SET UP THE DL11 VECTOR - GO TO 8$ 

>RESET SP FOR ERROR LOOPING 

>L0CK OUT ALL INTRS 

;INIT TIMER 

;CLEAR DL11 INTR FLAG 

;INIT TIMER 

;ENABLE DL11 XMIT INTR 

>XMIT READY SET ?? 

;BR IF YES 

;COUNT THE TIMER 

;BR IF NU TIKEOUT 

;GC REPORT TIMEOUT FOR DL11 

;INIT THE TIMER AGAIN 

^ENABLE LCLK INTRS 

JCLEAR THE LINE CLOCK READY BIT 

;LCLK READY TO INTR 

JBR IF YES 

>COUNT THE TIMER 

>BR IF NO TIMEOUT 

;GC REPORT LINE CLK TIMEOUT 
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T660 "BR6 VS BR 4" PRIORITY ARBITRATION TEST 



SEQ 0239 



046674 



000257 

005037 177776 



063312 



013701 
010605 



063316 



063316 




000100 
000064 



14$: 
2$: 

4$: 



3$: 
6$: 



8$: 



5$: 



7$: 



9$: 



CCC 

CLR 

COM 
CLR 
CLR 
TST 
BEQ 

ERROR 
BR 

TST 

BEQ 

MOV 

ERROR 
BR 

COM 

CLR 

CLR 

MOV 

ERROR 

BR 

CLR 

CLR 

MOV 

ERROR 

BR 

CLR 
CLR 
ERROR 

MOV 

CLR 
MOV 
CLR 
MOV 
CLR 



e#psw 

#MBUF0 
R3J 

&MBUF0 



6 

9$ 



R3,R2 
6 

9$ 



IS 
R2 

R3, 

6 

9$ 



1UF1 
!2 



531 

3/R2 



R5,SP 

!#PSW 
f^HlOO 
lit** 64 



} scope sync 

;allow intrs - kw should intr first 

;set software flag if fetched 
;disable both interrupts 

;did software flag get set ?? 
;BR if not 

;LINE CLK INTR OCCURRED TOO LATE 
JGO TO EXIT 

;DID DL11 SOFTWARE FLAG SET ?? 
;BR IF NOT 

;F0R CORRECT DESTINATION TYPOUT 
JDL11 INTERRUPTED THE KW11 
>GO TO EXIT TEST 

;FLAG THE DL11 INTR 
>DISABLE BOTH INTR ENSBLES 

;FOR CORRECT DESTINATION TYPOUT 
JDL11 SHOULD NOT HAVE INTERRUPTED 
;G0 EXIT TEST 

?D IS ABLE THE INTR ENABLES 

;FOR CORRECT DESTINATION TYPOUT 
;DL11 TIMEOUT 
>G0 TO EXIT 

;DISABLE INTR ENABLES 

;Ktill TIMEOUT 

;reset the sp 

jreset the cpu priority 

>restore lclk vector 

;restore the dl11 xmit vector 



***************************************************************** 

/////////////COMBINED INSTRUCTION EXERCISER SECTION ULLLLLLLLLLL^* 
******************************************************************** 



, *************************************************************** 

****** *********** ********** 



000661 
047062 



;*TEST 661 "BPT" TRAP LINKAGE TEST 
••******•*•*********••***••••••*••***•*« 

TST661: 

SCOPE >CALL THE SCOPE LOOP UTILITY 

MOV #661,R0 ;>LOAD RO WITH TEST NUMBER 

MOV 5#2§*R1 >LDAD Rl WITH TEST INSTRUCTION WORD 

MOV SP/Rb JSAVE THE SP 
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T661 "BPT" TRAP LINKAGE TEST 
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SEQ 0240 



2991 
>992 



_3007 
13008 

mi 

3011 
3012 
3013 
3014 
3015 
3016 



047044 
047050 

v *t / vj O 

047060 


010737 
012737 

MX UjUD 

000257 


84^66 


000014 


IS: 


MOV 
MOV 
MQV 
CCC 


PC/fijSLPERR 


;SET ERROR LOOP ADDRESS 
;GO TO 4$ OH "BPT" TRAP 

•DPQKT THF CD POD PDDDD 

/KCiJCii i nt or run lkkuk 

;scops SYNC 


r nnDTur 


047062 


000003 






2$: 


BPT 




;TEST THE "BPT" - GO TO 


4$ 


047064 


104005 






3$: 


ERROR 


5 


;bpt failed to trap 




047066 
047070 


010506 
012737 


000016 


000014 


4$: 


MOV 
MOV 


R5,SP 
#16,g#14 


;reset the sp 
;restors the vector 





047076 

mm 

047104 
047110 
047112 
047116 
047122 
047130 
047136 
047142 



mm 

013701 
010605 

mn 

012737 
012737 
012706 
000257 

047144 010046 



047146 
047152 
047156 
047160 

047162 
047166 
047172 

047174 
047200 
047202 

047204 
047212 

047214 
047220 
047222 

047224 
047230 



047232 



010437 
010637 
010506 
104005 

010437 
022706 
001404 

010637 
010506 
104005 

022737 
001404 

010637 
010506 
104005 

010337 
010506 



000004 
000336 



000662 
047144 

mm 

047162 
125252 
000340 



000004 
001074 



000004 
000000 



001074 

125252 000336 
001074 

0C0336 



• • *************************************************************** 

>*TEST 662 RED ZONE OVERFLOW TEST - MOV R--(SP) 

..*************************************************************** 

TST662: 



2$i 



3$: 
4$: 



5$! 

6$: 



7$: 
8$: 



SCOPE 

MQV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

MOV 

MOV 
MOV 
MOV 
ERROR 

MOV 
CMP 

BEQ 

MOV 
MOV 
ERROR 

CMP 
BEQ 

MOV 
MOV 
ERROR 

MOV 
MOV 



»662,R0 

me 1 

f336,R3 



. iOJIVCt » CV. 1 

|4S,e|4 >GO TO 4$ ON OVFLW 
1125252, §#336 " 



/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
>SAVE SP 

>SAVE T.O. VECTOR 
SAVE VECTOR AT 336 



P40/SP 



R0,-(SP) 




|125252,l?#336 



$R£G5 



;INIT. C3363 

;SET SP TO CAUSE RED ZONE TRAP 
JSCOPE SYNC 

;F0RCE RED ZONE TRAP - GO TO 4$ 

{RESTORE T.O. VECTOR w 
;SAVE BAD SP FOR PRINTING 
;RESET SP FOR ERROR CALL 
;M0V FAILED TO CAUSE TRAP 

JRESTORE T.O. VECTOR 

>CSP3=0? 

;BE IF YES 

JSAVE BAD SP FOR PRINTING 
;RESET SP FOR ERROR CALL 
;SP NOT BEING JAMMED TO 4 

>DID PUSH OCCUR IN YELLOW ZONE? 
;BR IF NOT 

;SAVE BAD SP FOR PRINTING 
> RESET SP FOP ERROR CALL 
?MOV PUSHED INTO YELLOW ZONE 

;RESTORE VECTOR 336 
;RESET SP 



■ • *************************************************************** 

;*TEST 663 YELLOW ZONE OVERFLOW TEST - MOV R,-(SP) 

. . ****************************************************** 

TST663: 



*********** 
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T663 



YELLOW ZONE OVERFLOW 



15:26 
TEST - 



PAGE 242 
MOV R,-(SP) 



SEQ 0241 



3017 

mi 

3020 

m\ 

3023 
3024 

mi 

3027 
3028 

Am 

13031 
3032 

in 

3035 
3036 

P 
3039 
3040 



5046 
»047 



1051 
(052 



047232 
047234 
047240 
047244 
047246 
047252 
047256 
047264 
047270 



nm A o 

047304 
047306 



047406 



047412 
047416 
047420 



000004 
012700 
013701 
010605 

012737 
012706 
000257 



047272 010046 



mm 

010506 
104005 

010437 
020012 
001404 

010637 
010506 
104005 

005706 
001004 

010637 
010506 
104005 



047344 010506 



012706 
000257 



047402 020046 
047404 000406 



010437 
010637 
010506 
104005 



000663 
047272 

mm 

047310 000004 
000400 



000004 
001074 

000004 

001074 

001074 




000004 
47406 
00400 



000004 
001074 



000004 



2$: 



3$: 
4$: 



55: 
6$: 



7$: 
8$: 



SCOPE 

MOV 

MOV 

MQV 

MOV 

MOV 

MOV 

MOV 

CCC 

MOV 

MOV 
MOV 
MOV 
ERROR 

MOV 
CMP 

BEQ 

MOV 
MOV 
ERROR 

TST 
BNE 

MOV 
MOV 
ERROR 



#663,R0 

kh R1 

R0,-(SP) 




SREG5 



R5,SP 



• • ************************** 

;*TEST 664 YELLOW ZONE 

• • ************************** 

TST664: 



2$: 

4$: 

3$i 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

CMP 

BR 

MOV 
MDV 
MOV 
ERROR 



#664, RO 
e#4 / R4 



;GO 




;CALL THE SCOPE LOOP UTILITY 
;JL0AD RO WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
JSAVE SP 

;R2 POINTS TO STACK 
:SAVE T.O. VECTOR 
OVFLW - GO TO 4$ 

;SET SP TO CAUSE OVFLW 
JSCOPE SYNC 

>F0RCE STACK OVFLW - GO TO 4$ 

;RESTORE T.O. VECTOR 
;SAVE BAD SP FOR PRINTING 
> RESET SP FOR ERROR CALL 
>STACK OVFLW FAILED TO TRAP 

>RESTORE T.O. VECTOR 
>DID CR03 GET PUSHED? 
:BR IF YES 

;SAVE BAD SP FOR PRINTING 

J RESET SP FOR ERROR CALL 

;MOV FAILED TO PUSH IN YELLOW ZONE 

;CSP3=0? 
JBR IF NOT 

;SAVE BAD SP FOR PRINTING 

J RESET SP FOR ERROR CALL 

?RED ZONE INSTEAD OF YELLOW ZONE 

;RESET SP 

************************************* 

OVERFLOW TEST - (CMP R0,-(SP)) 
************************************* 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 
/SAVE TRAP VECTOR 
TO 4$ IF TRAP SPRUNG 

;SET SP TO PUSH INTO "YELLOW ZONE" 
JSCOPE SYNC 

;TEST THE CMP - NO TRAP SHOULD OCCUR 

>GO TI) EXIT TEST 

/RESTORE TRAP VECTOR 
;SAVE BAD SP FOR PRINTING 
JRESET THE SP 
;CMP CAUSED OVERFLOW TRAP 
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T664 YELLOW ZONE OVERFLOW TEST - (CMP R0,-(SP)) 



SEQ 0242 



loll 



3080 
3081 

3083 
3084 
3085 
3086 



3092 
3093 
3094 
3095 
3096 
3097 



mi 



1 83 

p 

3289 

.3110 
13111 
.3112 
3113 
3114 
_3115 
13116 
13117 
13118 
13119 
13120 
13121 

13123 
13124 
13125 
13126 
13127 
13128 



047422 
047426 



047430 
047430 
047432 
047436 
047442 
047444 
047450 
047456 
047462 

047464 



047466 000406 



047470 
047474 
047500 
047502 

047504 
047510 



047552 
047556 
047562 
047564 

047566 
047572 



010437 
010506 



0004 
2700 
3701 
0605 
3704 

00^25^ 
030046 



047512 
047512 
047514 
047520 
047524 
047526 
047532 
047540 
047544 



047546 005746 
047550 000406 



010437 
010637 
010506 
104005 

010437 
010506 



000004 
012700 
013701 
010605 
013704 
012737 
012706 
000257 



010437 
010637 
010506 
104006 

010437 
010506 



000004 



000665 
047464 

000004 
047470 
000400 



000004 
001074 



000004 



000666 
047546 

000004 
047552 
000400 



000004 
001074 



000004 



000004 



000004 



MOV 
MOV 



Bfclf 4 



; RESTORE THE VECTOR 
;RESET THE SP 



• . *********** ****** ************* ************ ************** ******* 

TST665: 

>CALL THE SCOPE LOOP UTILITY 

#665, RO ;;LOAO RO WITH TEST NUMBER 

§#2S#R1 SLOAD Rl WITH TEST INSTRUCTION WORD 

Sf,ft5 ;SAVE THE SP 

»#4,R4 ;SAVE TRAP VECTOR 

PSt&#4 ;GO TO 4$ IF TRAP SPRUNG 

#400; SP ;SET SP TO PUSH INTO "YELLOW ZONE" 

;SCOPE SYNC 



2S: 

4$: 

3$: 
6$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

BIT 

BR 

MOV 
MOV 
MOV 

ERROR 

MOV 
MOV 




>TEST THE BIT - NO TRAP SHOULD OCCUR 

>GO TO EXIT TEST 

;RESTORE TRAP VECTOR 
>SAVE BAD SP FOR PRINTING 
JRESET THE SP 
>BIT CAUSED OVERFLOW TRAP 

;RESTORE THE VECTOR 
>RESET THE SP 



.************ ******************** ******************** *********** 



;*TEST 666 

. . *••**•**••*« 

TST666: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 




2$: 

4$: 

3$: 
6S: 



TST 

BR 

MOV 
MOV 
MOV 
ERROR 

MOV 
MOV 



YELLOW ZONE OVERFLOW TEST - (TST -(SP)) 
»•****•****•« •******••*•* ************** *********** 

;c all the scope loop utility 
;;load ro with test number 
;load rl with test instruction word 
?save the sp 

jki ;SAVE TRAP VECTOR 

*$,8#4 ;GO TO 4$ IF TRAP SPRUNG 
HOO/SP JSET SP TO PUSH INTO "YELLOW ZONE" 

JSCOPE SYNC 

JTEST THE TST - NO TRAP SHOULD OCCUR 

JGO TO EXIT TEST 

;RESTORE TRAP VECTOR 
JSAVE BAD SP FOR PRINTING 
;RESET THE SP 
;TST CAUSED OVERFLOW TRAP 

JRESTORE THE VECTOR 
;RESET THE SP 




. . *************************************************************** 

!*TEST 667 ODD ADDRESS ERROR TEST - SUB RA-(RB) - (RB) = ODD 

. . ******* ************ ********************************* *•** ******* 
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ODD ADDRESS ERROR TEST - SUB RA,(RB) - (RB) = ODD 



SEQ 0243 



73 

JVs 

13176 



1318 



047574 
047574 
047576 
047602 
047606 
047610 
047614 
047620 
047626 
047630 
047634 



047636 160012 



047640 
047644 



04^7660 

047666 
9.12672 
047676 

047704 
047706 

047710 

047712 

047714 
047720 
047724 

047726 

047730 

047732 
047734 
047740 

047742 

047746 

047750 
047756 



000004 
012700 
013701 
010605 
010737 
013704 
012737 

mm 

000257 



010437 
104006 



000004 
012700 
013701 

010205 
000257 

105435 

104006 

012705 
013701 
000257 

105455 

104006 

010205 
013701 
000257 

105475 

104006 

012737 
000403 



000667 
047636 

001010 
000004 
047646 

000001 



000004 



047646 010437 000004 

047652 010506 

047654 005037 000000 



000670 
047710 
063317 
047760 



063321 
047726 



047742 



000004 



000004 



1$: 



2$: 

3$: 
4$: 



• . **** 
;*test 

••**** 

T5T670 



2$: 
3$: 



20$: 
5$: 



21$: 
7$: 



061220 000004 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

SUB 

MOV 

ERROR 

MOV 
MOV 
CLR 

******* 

670 
******* 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 
CCC 

NEGB 

ERROR 

MOV 
MOV 
CCC 

NEGB 

ERROR 

MOV 
MOV 
CCC 

NEGB 

ERROR 

MOV 
BR 



;C ALL THE SCOPE LOOP UTILITY 
#667, RO ;;LOAD RO WITH TEST NUMBER 

§#2$£R1 JLOAD Rl WITH TEST INSTRUCTION WORD 

SP/R5 JSAVE SP 

PC,§#$LPERR ;SET ERROR LOOP ADDRESS 

8#4,R4 ;SAVE T.O. VECTOR 

|4$,8#4 ;ON ODD ADDR ERROR - GO TO 4$ 
R5,5P ;RESET SP FOR ERROR LOOP 

#1,R2 )R2 GETS 000 ADDRESS 

;SCOPE SYNC 



R0,(R2) 

R4,@#4 

6 

li'M 

e#o 



JFORCE ODD ADDR ERROR - GO TO 4$ 

;RESTORE T.O. VECTOR 
;ODD ADDR FAILED TO TRAP 

>RESTORE T.O. VECTOR 
;RESET SP 

;CLR LOC. JUST IN CASE 



************************* ****************** ********* 

TEST FOR ODD ADDR. ERROR TRAP FOR DEST. DEFERRED MODES 
******** *************** ***************************** 

J CALL THE SCOPE LOOP UTILITY 
*67Q,R0 ;;LOAD RO WITH TEST NUMBER 

5#2SIr1 ?L0AD Rl WITH TEST INSTRUCTION WORD 

fHB0Fl*l,R2 JDEST ADDR=MBUF1*1 (ODD) 

H$,9#4 JGO TO 4$ ON ODA TRAP 



R2,R5 

G(R5)+ 
6 

|MBUF1+3,R5 
§#20$, Rl 

e-(R5) 
6 

R2.R5 
9#21$,R1 

90 (R5) 



6 

flf6l 



#BER^8#4 



;CR53 = DEST. ADDR 
;SCOPE SYNC 

JTEST DM=3 TRAP 

JODA TRAP NOT SPRUNG 

;CR53 = DEST. ADDR 
>CR13 = TEST INSTR 
JSCOPE SYNC 

;TEST DM=5 TRAP 

;ODA TRAP .NOT SPRUNG 

;CR53 = DEST ADDR 
;CR13 = TEST INSTR 
;SCOPE SYNC 

;TEST DM=7 TRAP 

)£Dk TRAP NOT SPRUNG 

ffrES^ET T.O. VECTOR 
J > GO tO SCOPE EXIT 
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T670 TEST FOR ODD ADDR. ERROR TRAP FOR DEST. DEFERRED MODES 



SEO 0244 



047760 
047764 



062716 000002 
000002 



4$: 



ADD 
RTI 



#2,(SP) 



;MOV RETURN PC AROUND ERROR CALL 
;RETURN TO NEXT SOB-TEST 



13214 



L322 



1322? 



050026 
050032 



047766 
047766 
047770 

mm 

050004 

818811 

050016 
050020 
050022 

050034 

050036 
050040 
050042 
050046 

050050 

050054 

050056 
050064 

050066 
050072 



050074 
Q5Q074 
050076 
050102 
050106 
050112 

050120 
050122 



mm 
mm 

012737 



mm 

113504 
104006 

Jih 

115504 

104006 
010205 
013701 
000257 

117504 

104006 

012737 
000403 

062716 
000002 



mm 

mm 

012737 

010205 
000257 



050124 000135 



000671 
05001^ 



mil 



063321 
050034 



050050 



000000 



000004 



061220 000004 



000002 



000672 
81 77 

050^02 000004 



*••**•**•*••****»*•*****•*•**•* ********************* •**•••••*** 



;*TEST 671 

••*•*******•• 

TST671: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

MOVB 

ERROR 

MOV 
MOV 

CCC 

MOVB 

ERROR 
MOV 
MOV 
CCC 

MOVB 

ERROR 

MOV 
BR 

ADD 
RTI 

*********** 

?*TEST 672 
- "*"^****» 



*********** 



I671/R0 

llll^lil^Ri 
>/8#4 }G? 



TO 



2$: 
3$: 



20$: 
5$: 



21$: 
7$: 



4$: 



§(R5)+,R4 
6 

|MBUF1*3/R5 
8#20$,R1 

8-(R5),R4 
6 

R2,R5 
8#5l$/Rl 



§0(R5),R4 
6 

#2,(SP) 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
JCR23 = SOURCE ADDR. (ODD) 
4$ ON TRAP 

>CR53 = SOURCE ADDR. 
;SCOPE SYNC 

>TEST SM=3 

>ODA TRAP NOT SPRUNG 

;CR5] = SOURCE ADDR 
JCR11 = TEST INSTR 
?SCOPE SYNC 

;TEST SM=5 

>QDA TRAP NOT SPRUNG 
>CR53 = SOURCE ADDR 
;CR13 = TEST INSTR 
;SCOPE SYNC 

>TEST SM=7 

;ODA TRAP NOT SPRUNG 

; RESET T.O. VECTOR 
>;GO TO SCOPE EXIT 

;MOVE RETURN PC AROUND ERROR CALL 
;RETURN TO NEXT SUB-TEST 



TS 



****•*••*••**••****•**••***** ************ *********** 

TEST FOR ODD ADDR ERROR TRAP FOR JMP DEST DEFERRED MODES 
* ****** ******** ************ ************** *********** 



T672: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 
CCC 



»672,R0 

|6f*3#R2 
H$/8#4 ;go TO 



2$: 



/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
IDEST ADDR = 6$+3 (ODD) 
4$ ON ODA TRAP 

;CP53 = DEST ADDR 
; SCOPE SYNC 

;TEST JMP DM=3 
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T672 TEST FOR ODD ADDR ERROR TRAP FOR JMP DEST DEFERRED MODES 



SEQ 0245 



050270 
050274 



005016 



010637 
010506 



000376 



001074 



000004 



000004 



000004 



3$! 



20$: 
5$: 



21$: 
7$: 



6$: 



4$: 



8$: 
9$: 



ERROR 

MOV 
MOV 

CCC 

JMP 

ERROR 

MOV 
MOV 
CCC 

JMP 

ERROR 

MOV 

8R 

HALT 
HALT 
HALT 

BIT 
BNE 
ADD 
RTI 

MOV 
ADD 

ERROR 

MOV 



#6$*3,R5 

?#3o$;ri 



6-(R5) 
6 

R2/R5 
8#5l$,Rl 

gO(R5) 
6 

#if§§5 e#4 



gl,(SP) 

#2,(sp) 

7 

#BERR / «#4 



>ODA TRAP NOT SPRUNG IN ROM LOC 153 

;CR5J = DEST ADDR 
;CR13 = TEST INSTR 
JSCOPE SYNC 

;TEST JMP DM=5 

;ODA TRIP NOT SPRUNG IN ROM LOC 155 

;CR53 = DEST ADDR 
>CR13 = TEST INSTR 
)SCOPE SYNC 

;TEST JMP DM=7 

;ODA TRAP NOT SPRUNG 

;RESET BUS T.O. VECTOR 
;>GO TO SCOPE EXIT 

>CATASTOPHIC ERROR - CPCJ QUESTIONABLE. 
;RESTART PROGRAM - DO NOT CONTINUE. 

;TRAP DUE TO ODD PC? 
;BR IF YES 

>MOV RETURN PC AROUND ERROR CALL 
JRETURN TO NEXT SUB TEST 

;GET ODD PC OFF STACK INTO R3 
>FIX SP 

>PC TRAPPED WITH ODD ADDRESS 
JRESET T.O. VECTOR 



i j *************************************************************** 

;*TEST 673 TEST FOR STACK OFLW FOR DEST MODES 1*2.4- AND 6. 

••***••*****•*•*•***•*•*******•*••••*••*•• *••***«**<%*(*** ******* 

TST673! 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;GO TO 4$ ON OVFLW TRAP 
;SAVE SP 

;USE R2 TO SET UP SP TO CAUSE TRAP 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 



2$: 



MOV 
CCC 



MOV 
MOV 




Se,gj($REG5 



>SET UP SP TO CAUSE OVERFLOW 
>SCOPE SYNC 

>TEST DM1 - SHOULD SPRING TRAP 

;SAVE BAD SP FOR PRINTING 
;RESET SP 
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TEST FOR STACK OFLW FOR DEST MODES 1,2,4, AND 6. 



mi 

3299 
3300 

P 

3303 
3304 
33? 5 

Am 

13308 

ml 

3313 

im 

3316 

3318 
3319 
3320 
33|jj 

3324 
.3325 
13326 
.3327 
3328 

IB 

im 

mi 

3335 

3336 
3337 



3340 
|34jj 

3344 
3345 
-3346 
13347 
.3348 

.mi 

13351 
13352 



050276 104006 



050300 
050304 
050306 



050334 
050340 
050342 

050344 
050350 
050352 



050360 
050364 
050366 

050370 
050376 

050400 
050402 
050405 
050410 
050412 
050414 



050416 
050416 
050420 
050424 
050430 
050436 
050440 

050444 
050446 



013701 
010206 
000257 



050310 005026 

010637 
010506 
104006 

013701 
010206 
000257 

050332 005046 



010637 
010506 
104006 

013701 
010206 
000257 



050354 005066 



010637 
010506 
104006 

012737 
000407 

011604 
062704 
010506 
005046 
010446 
000002 



000004 
012700 

mm 

010605 
012702 

010206 
000257 



050310 

001074 
C50332 

001074 

050354 

000000 
001074 

061220 000004 



T673 

3$: 



20$: 



5$! 



21$: 



7$: 



22$: 



9$: 



4$: 



ERROR 

MOV 
MOV 
CCC 

CLR 

MOV 
MOV 

ERROR 

MOV 
MOV 
CCC 

CLR 

MOV 
MOV 
ERROR 

MOV 
MOV 
CCC 

CLR 

MOV 
MOV 

ERROR 

MOV 

BR 

MOV 
ADD 
MOV 
CLR 
MOV 
RTI 



,R1 



SP,gj|$REG5 



(SP)* 
SP, 

-(SP) 

SP,fl#$REG5 

R5,SP 

6 



mi 



,R1 



0(SP) 

SP,«#$REG5 

R5,SP 

6 



0#4 



3f I ,K 

10, R4 
k5,SP 



SP) 



;DM1 FAILED TO CAUSE OVERFLOW TRAP 

>CR13 = TEST INSTR. 

JSET UP SP TO CAUSE OVERFLOW 

JSCOPE SYNC 

JTEST DM2 - SHOULD SPRING TRAP 

;SAVE BAD SP FOR PRINTING 
JRESET SP 

JDM2 FAILED TO CAUSE OVERFLOW TRAP 

>CR13 = TEST INSTR. 

>SET UP SP TO CAUSE OVERFLOW 

;SCOPE SYNC 

;TEST DM4 - SHOULD SPRING TRAP 

JSAVE BAD SP FOR PRINTING 
; RESET SP 

jdm4 failed to cause overflow trap 

jcru = test instr. 
jset sp to cause error 
jscope sync 

;test dm6 - should spring trap 

jsave bad sp for printing 
jreset sp 

j dm6 failed to cause overflow trap 

jreset bus t.o. vector 
jjgo to scope exit 

jget return pc off stack 

;move return pc around error call 

jreset sp 

>push new ps on stack 
jpush return pc on stack 
/return to next sub-test 



000674 
050450 

050562 000004 
000376 



. . *********** ********** * ************************ **************** * 

J*TEST 674 TEST FOR STACK OVFLW FOR MOV DEST MODES 1,2,4, AND 6 

• •*•**** ************************** ************************ ******* 

TST674: 

;CALL THE SCOPE LOOP UTILITY 

>;LOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
;GO TO 4$ ON STACK OVFLW TRAP 
/SAVE SP 

JUSE R2 TO SET UP SP TO CAUSE TRAP 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
CCC 



#674/R0 

Ip 5 rT 

#3^6, R2 



R2/SP 



;SET UP SP TO CAUSE OVERFLOW 
JSCOPE SYNC 
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TEST FOR STACK OVFLW FOR MOV DEST MODES 1/2,4, AND 6. 



13353 
13354 

\mi 

13357 
mi 
3360 
M 

!3363 
ill! 
3367 
13368 
13369 

PI 

m 

13376 
13377 

p 

13380 
13381 



L3385 

Im 

L3388 
L3389 



I3392 
13393 

mit 

13396 
13397 



050450 010016 



050452 
05045ft 
050460 

050462 
050466 
050470 



Q5Q474 
050500 
050502 

050504 
050510 
050512 



050516 
050522 
050524 

050526 
050532 
050534 



010637 
010506 
104006 

013701 
010206 
000257 



050472 010026 



8i8 

104 



637 
-506 
4006 



013701 
010206 
000257 



050514 010046 



010637 
010506 
104006 

013701 
010206 
000257 



050536 010066 



050542 
050546 
050550 

050552 
050560 

050562 
050564 

mm 

050574 
050576 



010637 
010506 
104006 

012737 
000407 

mm 
mm 

010446 
000002 



001074 



050472 



001074 



050514 



001074 



050536 



000000 
001074 



061220 000004 



704 000010 




000004 



T674 

2$: 



3$: 



20$: 



5$: 



21$: 



7$: 



22$: 



9$: 



4$; 



MOV 
MOV 

ERROR 

MOV 
MOV 
CCC 



MOV 
MOV 

ERROR 

MOV 
MOV 
CCC 

MOV 

MOV 
MOV 
ERROR 

MOV 
MOV 
CCC 



MOV 
MOV 

ERROR 

MOV 
BR 

MOV 
ADD 
MOV 
CLR 
MOV 
RTI 



R0,(SP) 

SP,»#$REG5 

R5,SP 

6 



/Rl 



R0,(SP)+ 



}|$REG5 



mi* 



R0/-{SP) 

SP,B#$REG5 

R5/SP 

6 



ffl 



/Rl 



R0,0(SP) 
SP f pEG5 
6 

(SP),R4 



jtest mov dm1 - should spring trap 

;save bad sp for printing 
jreset sp 

;mov dm1 failed to spring trap 

jcr13 = test instr. 

;set up sp to cause overflow 

jscope sync 

jtest mov dm2 - should spring trap 
;save bad sp for printing 

;RESET SP 

JMOV DM2 FAILED TO SPRING TRAP 

JCR13 = TEST INSTR. 

;SET UP SP TO CAUSE OVERFLOW 

J SCOPE SYNC 

;TEST MOV DM4 - SHOULD SPRING TRAP 

JSAVE BAD SP FOR PRINTING 
JRESET SP 

JMOV DM4 FAILED TO SPRING TRAP 

JCR13 = TEST INSTR. 

JSET UP SP TO CAUSE OVERFLOW 

JSCOPE SYNC 

JTEST MOV DM6 - SHOULD SPRING TRAP 

JSAVE BAD SP FOR PRINTING 
JRESET SP 

JMOV DM6 FAILED TO CAUSE OVFLW TRAP 

JRESET T.O. VECTOR 
JJGO TO SCOPE EXIT 

J GET RETURN PC 

JMOVE RETURN PC AROUND ERROR CALL 

JRESET SP 

JPUSH NEW PSW 

JPUSH RETURN PC 

JRETURN TO NEXT SUB-TEST 



*•*•******••**••*•****•* 



•••*•*•**•*• * 

TEST THAT JSR CAN CAUSE OVERFLOW TRAP 
************************************************* 



000400 



t .!§***************< 

TST675: 

SCOPE J CALL THE SCOPE LOOP UTILITY 

MOV #675, PO JJLOAD RO WITH TEST NUMBER 

MOV 8ff2$<Rl {LOAD Rl WITH TEST INSTRUCTION WORD 

MOV |4$,§#4 JGO TO 4$ ON OVERFLOW ERROR 

MOV SP,R5 JSAVE SP 

MOV #400, SP JSET THE SP TO CAUSE TRAP 



CQKDA-C KD11-K BASIC LOGIC TESTS 
CQKDAC.P11 07-NOV-78 14:09 



MACY11 30A(1052) 15-NOV-78 15:26 PAGE 249 
T675 TEST THAT JSR CAN CAUSE OVERFLOW TRAP 



SEQ 0248 



13409 
13410 



13435 
13436 



13459 
13460 



050626 

050630 

050634 
050640 
050642 

050644 

050646 
050652 
050654 



050656 
050662 
050664 



050674 
150674 
050676 
050702 
050706 
050712 
050714 
°50722 
050730 
050734 



050740 
050744 
050746 



050752 
050754 

050756 

83""" 



050766 
050774 



051000 



000257 
004737 
010637 

mm 

000410 

010637 
010506 
000404 

010637 
010506 
104005 



050656 
001074 



001074 



050666 012737 061220 000004 



000004 
012700 

\m 

0605 
2737 

\M 

50257 



050736 000003 



010637 
010506 
104005 



050750 000406 



010506 
000404 

010637 

nmi 

012737 
010437 



000676 
050736 
000014 

050752 
050756 
000400 



001074 



001074 



061220 
000014 



3004 
&014 



000004 



2$i 



3Si 



4$: 

6$: 
5$: 
8$: 



ccc 

JSR 
NOV 

eSror 



MOV 
MOV 
BR 

MOV 
MOV 
ERROR 



> SCOPE SYNC 
PC, ##6$ ;TEST JSR - SHOULD SPRING TRAP 



*5;!f $RBS5 

5 

8$ 

SP gp E G5 
8$ 

SP, f |j S REG5 



#BERR,e#4 



JSAVE BAD SP FOR ERROR PRINTOUT 
; RESET SP 

;JSR PUSH DID NOT SPRING OVFL TRAP 

JGO TO SCOPE EXIT 

;SAVE BAD SP FOR ERROR PRINTOUT 
> RESET SP 

JGO EXIT TEST - ALL UK 

;SAVE BAD SP FOR ERROR PRINTOUT 
'RESET SP 

;JSR PUSH FAILED TO SPRING OVFLW TRAP 
;RESET BUS T.D. VECTOR 



• • ************************** ******** ******** ****** ******** ******* 

;*TEST 676 TEST THAT 1ST PUSH IN TRAP MICROROUTINE CAUSES OVFLW TRAP 

{.*************************************************************** 

TST676: 



2$: 
3$: 

4$: 

6$: 
5$: 
8$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

BPT 

MOV 
MOV 
ERROR 

BR 

MOV 

BR 

MOV 
MOV 
ERROR 

MOV 
MOV 



676, RO 

— - Rl 
R4 



;CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
•»,ki >SAVE BREAK POINT TRAP VECTOR 

R5 JSAVE SP 

,»#4 ;GO TO 4$ ON OVFLW TRAP 
,§#14 JGO TO 6$ IF BPT SERVICED 

0,SP JSET UP SP TO CAUSE OVFLW ON 1ST PUSH 

JSCOPE SYNC 



»$REG5 



)$HEG5 



SP,f 
8$ 

R5,SP 
8$ 

SP,( 
R5,i 

5 



¥BERR,@#4 
J4,e#i4 



;TEST THE BPT - SHOULD CAUSE OVERFLOW TRAP 

>SAVE BAD SP FOR ERROR PRINTOUT 
JRESET SP 

JBPT FAILED TO TRAP 

JGC TO SCOPE EXIT 

JRESET SP 

;GO EXIT - ALL OK 

JSAVE BAD SP FOR ERROR PRINTOUT 
* R ES ET SP 

?OVFLW TRAP FAILED TO BUMP BPT SERVICE 
JRESET VECTORS 



;*TEST 677 TEST THAT 2ND PUSH IN TRAP MICROUTINE CAUSES OVFLW TRAP 

•J*************************************************************** 

TST677: 
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000677 
051042 
000014 




051056 000004 
051062 000014 
000402 



001074 



001074 



061220 000004 
000014 



mm 

051156 000004 



MACY11 30AU0 
T677 TEST 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 
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THAT 2ND PUSH IN TRAP MICROUTINE CAUSES OVFLW TRAP 

JC ALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE BPT VECTOR 
JSAVE SP 
4 ;GO TO 45 ON STACK OVFLOW 

;GO TO 6$ IF BPT SERVICED 
JSET SP TO CAUSE TRAP UN 2ND PUSH 
JSCOPE SYNC 



SEQ 0249 




2$: 
3$: 

4$: 

6$: 
5$: 
8$: 



BPT 

MOV 
MOV 
ERROR 



MOV 

BR 

MOV 
MOV 
ERROR 

MOV 
MOV 



SP,^$REG5 
5 

8S 

R5,SP 

8S 

SP,| |$ REG5 

5 

K3W* 4 



/TEST THE BPT - SHOULD CAUSE OVERFLOW TRAP 

JSAVE BAD SP FOR PRINTING 
JRESET SP 

;BPT FAILED TO TRAP 

>G0 TO SCOPE EXIT 

/RESET SP 

JGO EXIT - ALL OK 

JSAVE BAD SP FOR PRINTING 
JRESET SP 

JOVFLW TRAP FAILED TO BUMP BPT SERVICE 
/RESET VECTORS 



. . *********** 

j'TEST 700 
• • *********** 

TST700: 

SCOPE 



**************************************************** 

ILLEGAL INSTRUCTION TEST - JSR RN,%R 
******************* **************************** *** 



1$: 



2$: 

3$: 
4$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

JSR 



;c all the scope loop utility 
;;load ro with test number 
/load rl with test instruction word 

JSAVE SP 

;SET ERROR LOOP ADDRESS 



700, RO 
PC'fJf SLPERR 

~#4,R4 ;SAVE T.O. VECTOR 

4$,g#4 /ILLEGAL INST*. TRAP GOES TO 4$ 



#35, R2 



051164 
051164 



000004 



MOV 

ERROR 

MOV 
MOV 

. . *********** 

J*TEST 701 
• • *********** 

TST701: 

SCOPE 



J RESET SP FOR ERROR LOOP 
JIN CASE JSR JUMPS TO CR21 
JSCOPE SYNC 

;JSR MODE FORCES TRAP - GO TC 4$ 

;RESTORE T.O. VECTOR 
JJSR FAILED TO SPRING TRAP 

;RESTORE VECTOR 
;RESET SP 

**************************************************** 

ILLEGAL INSTRUCTION TEST - JMP %R 
**************************************************** 

/CALL THE SCOPE LOOP UTILITY 



R3,R2 
R4,9#4 

R R 5 4 ;r 
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ill 



13531 
13532 
13533 
13534 
13535 
13536 

3539 
3540 
3541 
3542 



35 .. 
354e 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 

m 

3574 
3575 
3576 



8111 

05" ■ 
25 




000257 
051226 000102 



05i: 
05i: 



051236 
051242 



010437 
104005 



010437 
010506 



000004 
012700 



000004 

"12700 



051234 



000004 
000004 



000702 
051306 





000004 



000014 



MACY11 
T701 



IS: 



2S: 



30AU052) 15-NOV-78 15: 
ILLEGAL INSTRUCTION TEST 



3$: 
4$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

J MP 

MOV 
ERROR 

MOV 
MOV 



PC,9|$LPERR 

Ufa* 4 ;on mp 

#3$,R2 



26 PAGE 251 
- JMP %R 

LOAD _R0..W|TH_T EST NOMiER_ 
>SET~eIrOR LOOP. ADDRESS 



SEQ 0250 



rH TEST INSTRUCTION WORD 



R2 



R4,@#4 

5 



R4,f 
R5/5 



;;**** 

;*TEST 
• • **•* 

TST702 



1$: 



2$: 



j*T£ST 

Li**** 

TST703 



1$: 



************************** 

702 BUS TIMEOUT TRAP 

************************** 



;>L 

/LOAD Rl Ml 
JSAVESP 
JSET t 

JSAVE VECTORPOINTER AT LOC. 4 
- GO TO 4$ 
/RESET SP FOR ERROR LOOP 
JIN CASE IT JUMPS TO ADDR IN RN 
;SCOPE SYNC 

JJMP MODE FORCES TRAP - GO TC 4$ 

/RESTORE VECTOR POINTER AT LOC. 4 
; ILLEGAL INSTR TRAP FAILED 

;RESTORE VECTOR POINTER AT LOC. 4 
;RESET SP 

********************************* 

TEST - TST (R) 
********************************* 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

TST 

MOV 
ERROR 
MOV 
MOV 



#702/R0 
R5,SP 



(R2) 

R4,!J#4 

R4,»#4 
R5>SP 



/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE SP 

JSET ERROR LCOP ADDRESS 
JSAVE ORIGINAL T.O. VECTOR POINTER 
.0. TRAP - GO TO 4$ 

J ADDRESS CAUSES T.O. 

J RESET SP FOR ERROR LOOP 

JSCOPE SYNC 

JFGRCE T.O. TRAP - GO TO 4$ 

/RESTORE T.O. VECTOR 
jTIMEOUT TRAP FAILED 
JRESTORE T.O. VECTOR 
JRESET SP 



******* ******************* ****** ****************< 



t** ******* 



****** ******** 



►*************> 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

RTT 



#703, RO 
PC^SLPERR 



JCALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JSAVE SP 

JSET ERROR LOOP ADDRESS 

J RESET SP FOR ERROR LOOP 

JGO TO 4$ WHEN "T" TRAP SPRUNG 

JSET "T" BIT ON STACK 

JSET UP NEW PC ON STACK 

J SCOPE SYNC 

J TURN ON "T" BIT - GO TO 2$ 



CQKDA 
CQKDAC. 

mi 

13579 
"3580 
581 
..582 
13583 
"3584 
"585 
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135 

in 
i" 



S586 
13587 
13588 

urn 
\m\ 
ip 

13595 
13596 



[3603 
L3603 



13606 
13607 
13608 

ml 
\m\ 

mil 

13615 

ha* 

nm 

13620 

urn 

13623 
13624 



I! 



051370 005700 

051372 104005 

051374 000405 

051376 032766 

051404 001001 

051406 104001 



mm 



\m 

1436 
L440 



051444 
051452 
051454 

051456 



051462 
Q5 5l 466 



L3631 
L3632 



. 

051476 

051500 
051504 

051506 

Mm 

051516 
051520 

051522 
051524 



051530 



05503 



mi 



000004 
012700 

010605 
013704 
012737 

fi95°Ofi 
00(5257 

012746 



m » 



010437 
005004 
" 0603 
0J0506 
'4003 
000414 

022706 
001406 

010437 
"3004 
)603 



0101 
005C 
0106 
010506 
104003 

010506 
010437 



14:09 




T703 


"T" BIT 


TRAP TEST 








2$: 


TST 


RO 


J SPR ING "T" BIT TRAP - GO TO 4$ 






3$: 


ERROR 


5 


JNO "T" BIT TRAP OCCURRED 








BR 


6$ 


JGO EXIT 


000020 


000002 


4$: 


BIT 




J"T" BIT SET IN OLD PSW? 






BNE 


g|0,2(SP) 


JBR IF YES 






5$: 


ERROR 


1 


J#T# BIT NOT SAVED ON STACK 


000016 


000014 


6$: 


MOV 


#16,@#14 


JRESTORE "T" BIT TRAP CATCHER 


000016 




CLR 




JRESET SP 








MUV 


li% 



SEQ 0251 



000704 
051456 

mm 



007777 
000004 



000000 



000004 



000004 



.************ ******* ******************** ********* *************** 

. l TEST 704 TEST PUSH INTO PSW WITH CSP3 = 000000 

jTHESE_NEXT_TW_g_TESTS_yERIFY_TH^ ?.ON£".TRAP QQCURg IF_A 



JPUSH IS ATTEMPTED WITH THE CSP3 INITIALLY EQUAL TO 000000,172522' 
j.*************************************************************** 

TST704: 

JCALL THE SCOPE LOOP UTILITY 

JJLOAD RO WITH TEST NUMBER 
JLOAD Rl WITH TEST INSTRUCTION WORD 
JSAVE THE SP 

JSAVE THE BUS ERROR VECTOR 
J"RED ZONE" TRAP GOES TO 4$ 
J MAKE SP = 000000 
J SCOPE SYNC 



2$: 



3$: 
4$: 



5$: 
6$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CCC 

MOV 



|704,R0 

?#4,R4 
|4$,8#4 



SP 
#7777 



■(SP) 



MOV 

CLR 

MOV 

MOV 

ERROR 

BR 

CMP 
BEQ 

MOV 
CLR 
MOV 
MOV 
ERROR 

MOV 
MOV 



R4,8#4 
R4 

SP,R3 
R5,SP 
3 

TST705 
f 0,SP 

R4,*#4 

SP,R3 
R5,SP 
3 

R5,SP 
R4,@#4 



> ATTEMPT PUSH INTO PSW - SHOOLD CAUSE 
J "RED ZONE" TRAP TO BE SPRUNG 

JRESTORE BUS ERROR VECTOR 
JCR43 = S / B SP 
JCR33 = WAS SP 
JRESET THE SP 
JTRAP NOT SPRUNG 
JJGO TO SCOPE EXIT 



SCHOOL'S OUT 
RAP ? 



JWAS IT A RED ZONE 
JBR IF YES 

JRESTORE BUS ERROR VECTOR 
JCR43= S / B SP 
JCR33 = WAS SP 
JRESET THE SP 

JTRAP SPRUNG BUT NOT RED ZONE 

JFIX UP THE SP 
JRESTORE BERR VECTOR 



*************************************************************** 

1 

***** 



J*TEST 705 
• • ********** 

TST705 
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TEST POSH INTO SR WITH CSP3 = 177572 



SEQ 0252 



051530 
051532 
051536 



051542 
051544 
051550 



051556 
051562 



000004 
012700 
013701 
010605 
013704 
012737 
012706 
000257 



051564 012746 



051570 
051574 
051576 
351600 




051614 
051620 

mm 

051626 

051630 
051632 



051636 
051636 
051640 



010437 
005004 

mm 

104003 

010506 
010437 



000705 
051564 

000004 

051606 000004 
177572 

177777 

000004 



000000 
000004 



2S: 



3S: 
4S: 



5$: 
6$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

MOV 



MOV 

CLR 

MOV 

MOV 

ERROR 

BR 

CMP 
BEQ 

MOV 
CLR 
MOV 
MOV 
ERROR 

MOV 
MOV 



»705,R0 

i&ifup 



#-l,-(SP) 



R R 4,S#4 

SP,R3 
R5,SP 
3 

TST706 

!?' sp 

R R 4, @ #4 

SP/R3 
R5;SP 
3 

R5/SP 
R4,@#4 



/call the scope loop utility 
;;load ro kith test number 
1load rl with test instruction woro 
>save the sp 

jsave the bos error vector 
red zone" trap goes to 4$ 

/MAKE SP=177572 
; SCOPE SYNC 

;ATTEMPT PUSH INTO SR - SHOULD CAUSE 
/"RED ZONE" TRAP TO BE SPRUNG 

>RESTORE BUS ERROR VECTOR 
;CR43 = S / B SP 
;CR33 = WAS SP 
;reset THE SP 
;TRAP NOT SPRUNG 

>>GO TO SCOPE EXIT - SCHOOL'S CUT 

;WAS IT A RED ZONE TRAP ? 
;BR IF YES 

JRESTQRE BUS ERROR VECTOR 
;CR43= S / B SP 
;CR33 = WAS SP 
JRESET THE SP 

;TRAP SPRUNG BUT NOT RED ZONE 

>FIX UP THE SP 
;RESTORE BUS ERROR VECTOR 



it 



.***» ******************) 




TST706J 



********** ****** ******** **•••**••* ******* 

706 TEST PUSH INTO SLR WITH CSP3 = 177776 

*********************************** *************< 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CCC 

MOV 



MOV 

CLR 

MOV 

MOV 

ERROR 

BR 

CMP 

BEQ 



#706,R0 
»#4,R4 

#200/-(SP) 



R4,e#4 

R4 

SP,R3 
R5,SP 

TST707 

#0,SP 
6S 



*********** 

/CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
/LOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 

/SAVE THE BUS ERROR VECTOR 
ZONE" TRAP GOES TO 4$ 
JMAKE SP=177776 
; SCOPE SYNC 

; ATTEMPT PUSH INTO SLR - SHOULD CAUSE 
/"RED ZONE" TRAP TO EE SPRUNG 

;RESTORE BUS ERROR VECTOR 
JCR43 = S / B SP 
>CR33 = WAS SP 
JRESET THE SP 
;TRAP NOT SPRUNG 

JJGO TO SCOPE EXIT - SCHOOL'S OUT 

>WAS IT A RED ZONE TRAP ? 
JBR IF YES 
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051722 
051726 
051730 

051736 
051740 



052010 

052012 
052014 
052020 



052022 
052024 



010437 
005004 
010603 
010506 
104003 

010506 
010437 




010137 
000257 



052006 000007 



104005 

005201 
022701 
001366 

010506 
012737 



052074 000210 



052076 104005 



000004 



052012 
000012 
000007 
001010 

052006 



000100 



000710 




052074 



000010 



051752 001010 



000010 
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T706 TEST PUSH INTO SLR WITH CSPD = 177776 



SEQ 0253 



5$: 
6$: 



MUV 
CLP 
MOV 
MOV 
ERROR 

MOV 
MOV 



R4,9#4 
R4 

SP,R3 
R5/SP 
3 

R5,SP 
R4,(?#4 



JRESTORF. BUS ERROR VECTOR 
JCR43= S / B SP 
JCR33 = WAS SP 
; RESET THE SP 

;TRAP SPRUNG BUT NOT RED ZONE 

JFIX UP THE SP 

;restore bus ERROR VECTOR 



*************************************************************** 



j'TEST 707 
************** 

T3T707 





SCOPE 




MOV 


5$: 


MOV 




MOV 




CLR 




MOV 




MOV 


IS: 


MOV 




MOV 




CCC 


2$: 


000007 


35: 


ERROR 


4$: 


INC 




CMP 




BNE 




MOV 




MOV 



|7,R1 

gj,|j$LPERR 
R1^S#2$ /LOAD 



Rl 

||00,R1 



;CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
JSAVE THE SP 

JSET UP RSVD INSTR. TRAP VECTOR 

;SET UP FIRST ONE IN GROUP 

;QNLY LOOP ON BAD OP CODE 

/RESET SP FOR ERROR LOOP AND NEW INSTR 
NEW INSTR 
;SCOPE SYNC 

/TEST THE RSVD INSTR - THIS LOCATION 

;GETS CHANGED EACH PASS THROUGH 

JRSVD INSTR. IN Rl FAILED TO TRAP 

/GENERATE NEW RSVD INSTR 
>AT END OF THIS GROUP ?? 
;BR IF NOT 



************ 



R5,SP /MAKE SURE TO RESET THE SP 

#5S,aj$LPERR JLOOP FROM BEGINNING ON ERROR 
********** ********** ********************** ******** 



;^EST 710 RSVD IV5TRUCTION TEST - 000210 THRU 000237 

********************************** ************** *************** 

TST710: 

SCOPE 



5$: 



1$: 



2$: 



3$: 



MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
CCC 

000210 




;CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
jSAVE THE SP 

;SET UP RSVD INSTR. TRAP VECTOR 



"Si 



. UP FIRST ONE IN GROUP 
;SEf ERROR LOOP ADDRESS 
JRESET SP FOR ERROR LOOP AND NEW INSTR 
;LOAD NEW INSTR 

JSCOPE SYNC 



;TEST THE RSVD INSTR - THIS LOCATION 
;GETS CHANGED EACH PASS THROUGH 

JRSVD INSTR. IN Rl FAILED TO TRAP 
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000240 




13768 

\m 

13771 
13772 

\m 

13775 
13776 

H7?fl 
13779 
13780 
13781 

\im 

13784 
13785 

y88 

ml 

13791 
13792 

\mi 

13795 
13796 

im 

13799 
13800 



052154 
052160 



052162 007000 



052164 

052166 
052170 
052174 

052176 
052200 



104005 

005201 
02;""" 
00] 



022701 
"H366 



mm 

052210 
0522 
05 

Ikm 

052240 
052242 
052246 



010506 
012737 



000004 
012700 
010605 
012737 
"15037 
L2701 



0C 

010737 
010506 
010137 
000257 



052250 075000 



052252 
052254 



000240 
104005 



052040 001010 



052162 



010000 



052126 001010 



000712 

052256 
000012 
075000 
001010 

052250 



000010 
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4$: 
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INSTRUCTION TEST - 000210 THRU 000237 



SEQ 0254 



INC 
CMP 
BNE 

MOV 
MOV 

• . *********** 

>*TEST 711 
j i *********** 

TST711: 

SCOPE 



J240/R1 
#5S/I#$LPERR 



JGENEHATE NEW RSVD INSTR 
; AT END OF THIS GROUP ?? 
>BR IP NOT 

>MAKE SURE TO RESET THE SP 
INNING ON ERROR 



5$: 

1$: 

2$: 

3$: 
4$: 



MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
CCC 

007000 



INC 
CMP 

BNE 

MOV 
MOV 



;LOOP FROM BEGI1 

**************************************************** 

RSVD INSTRUCTION TEST - 007000 THRU 007777^ 
************************************************* 

;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;SAVE THE SP 

>SET UP RSVD INSTR. TRAP VECTOR 




Rl/@#2$ ;LOAD NEW INSTR 

JSCOPE SYNC 



;SET UP FIRST ONE IN GROUP 
;SET ERROR LOOP ADDRESS 
RESET SP FOR ERROR LOOP AND NEW INSTR 



Rl 

|l0000,Rl 
R5/SP 

#5S/e#SLPERR 



;TEST THE RSVD INSTR - THIS LOCATION 
;GETS CHANGED EACH PASS THROUGH 

JRSVD INSTR. IN Rl FAILED TO TRAP 

;GENERATE NEW RSVD INSTR 
;AT END OF THIS GROUP ?? 
;BR IF NOT 

;MAKE SURE TO RESET THE SP 
;LOOP FROM BEGINNING ON ERROR 



. . *********** 

j'TEST 712 
• • *********** 

TST712: 

SCOPE 



**************************************************** 

RSVD INSTRUCTION TEST - 075000 THRU 076777 
********************* ******************************* 



052256 005201 



5$: 



1$: 



2$: 



3$: 
4$: 



MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
CCC 

75000 



NOP 
ERROR 



R5 



712,R0 

P,R5 

4Le#10 

75000, Rl 
C,gj}$LPERR 



R1/(?#2S ;LOAD NEW INSTR 

;SCOPE SYNC 



;C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;SAVE THE SP 

;SET UP RSVD INSTR. TRAP VECTOR 

;SET UP FIRST ONE IN GROUP 
;SET ERROR LOOP ADDRESS 
RESET SP FOR ERROR LOOP AND NEW INSTR 



INC 



;TEST THE RSVD INSTR - THIS LOCATION 
;GETS CHANGED EACH PASS THROUGH 

J IN CASE NON TRAPPING INSTR IS TWO WORDS 
JRSVD INSTR. IN Rl FAILED TO TRAP 

>GENER ATE NEW RSVD INSTR 



CQKDA-C 
CQKDAC. 

13801 
13802 
13803 
13804 
13805 
12806 
13807 
13808 

\mi 

13811 
13812 

1311? 

13815 



KD11- 
Pll 
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111 



[3818 
L3819 
L3820 
L3821 
[3822 



052260 
052264 
052266 
052272 

mm 



022701 
001774 
022701 
001362 

mm 



052304 

mm nm. 

052312 010605 

052" 

05l,„ 

052355 612701 
052332 010737 

05?"-' 

052 
052 



mm 

512701 
)10737 



077000 



052214 001010 



000713 

882??* 

106400 
001010 

052346 



000010 
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RSVD INSTRUCTION TEST - 075000 THRU 076777 

CMP 
BEQ 
CMP 
BNE 



SEQ 0255 



MOV 
MOV 



|MED,R1 
j|77000,Rl 

R5.SP 

#5$,e#SLPERR 



;med instruction? 
;br if yes— skip it. 
; at end of this group ?? 
ibr If not 

;make sure to reset the sp 
hoop from beginning on error 



■ • **** 

;*TEST 

TST713 



5$: 



1$: 



*********************************************************** 

RSVD INSTRUCTION TEST - 106400 THRU 107777 

r**«** ******************** ***************************** 



S 

M 

MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
CCC 



PE 




>CA 



THE S C QPE Tfe O ? P N UTiyTY 



mfsko RO WITH 

;SAVE THE SP 
>SET UP RSVD INSTR 



TRAP VECTOR 



f iuo400/Rl ;SET UP FIRST ONE IN GROUP 

>C,a#$LPERR ;SET ERROR LOOP ADDRESS 

R5/SP ;RESET SP FOR ERROR LOOP AND NEW INSTR 

Rl/9#2$ >LOAD NEW INSTR 

;SCOPE SYNC 
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T713 RSVD INSTRUCTION TEST - 106400 THRU 107777 



SEQ 0256 



13873 



052346 106400 



052350 




052422 
052430 



052516 
052520 



012737 
012737 



052512 000240 



052514 104005 



000754 
012737 



061070 000014 
000340 000016 




00002^ 



052442 001010 



106400 

ERROR 5 

IMC 
CMP 
BNE 
MOV 
CMP 
BNE 



6500,R1 




6700, Rl 
/Rl 



MOV R5, SP 

MOV #5s#g #$LPERR 

MOV fRSERRiaflO 

MOV #340,8*12 

SCOPE 



>TEST THE RSVD INSTR - THIS LOCATION 
;GETS CHANGED EACH PASS THROUGH 

}RSVD INSTR. IN Rl FAILED TO TRAP 

{GENERATE NEW RSVD INSTR 
{MFPD INSTRUCTION ?7 
>BR IF NOT 

{skip mfpd and mtpd instructions 
{at end of this group ?? 
;br if not 

>make sure to reset the sp 
;loop from beginning on error 
{restore rsvd instr vector 

{call the scope loop utility 



{THIS NEXT GROUP OF SEQUENTIAL TESTS VERIFIES THAT A "T" BIT 

} TRAP CAN BE SERVICED IN EACH MICROUORD THAT DOES A "BUT SERVICE" 

>EACH ROUTINE ENTERS THE TRAP MICROUTINE WHEN THE TRAP IS SPRUNG 



TSET ! 



MOV 
MOV 



u«;5f« 14 



..*»*«*»*««**********»«»*»»»** 

{•TEST 714 BUT SERVICE - 

;"INSTAB" (INSTRUCTION TABLE) 
;THAT TEST A "BUT SERVICE" IN 

TST714: 

#714, RO 
SP,R5 

#INSTAB,R4 
(R4)+,R1 

PC^flfSLPERR 

fJl , $ R2 

ImbufiJr3 

R5,SP 



#6$,8#$LPERR 





MOV 


6$: 


MOV 


MOV 


4$: 


MOV 


8EQ 




MOV 


1$: 


MOV 


MOV 




MOV 




MOV 




MOV 




MOV 




CCC 




RTT 


2$: 


SOP 


3$: 


ERROR 




BR 


5$: 


MOV 



>SET UP THE "T" BIT TRAP VECTOR 
{PRIORITY 7 

a********************************** 

ONE WORD INSTRUCT IONS- ALL MODES — FROM TABLE 
CONTAINS ALL ONE WORD INSTRUCTIONS 
A UNIQUE ROM LOCATION. THE TABLE MUST 

*********************************** 

;;load ro with test number 

{SAVE THE SP 

;PUT POINTER TO TABLE IN R4 
/LOAD Rl WITH TEST INSTRUCTION WORD 
{EXIT TEST IF END OF TABLE 
{LOOP ON FAILING INSTRUCTION ONLY 
JSTC — 



fORE TEST INSTRUCTION TO BE EXECUTED 



;IN CASE DM1 DEST— (R2) 
{IN CASE SMI— ?R3) 
/RESTORE SP FOR ERROR LOOPING 
{SET n T" BIT IN THE NEW PSW 
{MAKE NEW PC = 2S 
/SCOPE SYNC 

{SET "T" BIT - GO TO 2$ 

{INSTRUCTION FROM TABLE IS STORED HERE AND 
{ SHOULD SPRING TRAP 

>BUT SERVICE FAILED 

{GET NEXT INSTRUCTION FOR BUT SERVICE TEST 
{LOOP FROM BEGINNING ON ERROR 
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3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 



1917 



mi 



052526 000004 

052530 012700 

052534 013701 

052540 012746 

052544 012746 

052550 000257 

052552 000002 

052554 104005 



2632 



052640 
052642 



)004 
2700 



00C 

oil 

013701 

032737 
001401 
000000 

mm 

010506 
"12737 
12746 
12746 
00257 
00006 



: 04005 

o „;so6 



000004 
012700 
013701 



II.... 

000006 



000715 
052552 
000020 
052554 



000716 
052634 



040000 063234 



001010 

mm 

052634 



052634 004777 010456 



000717 
052672 
000020 
052672 



052672 000167 000000 
052676 104005 



063316 
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T715 BUT SERVICE TEST - (RTI) 

**************** ******************** ************ ****** *********** 

{♦TEST 715 BUT SERVICE TEST - (RTI) 

;•********************************************< 

TST715: 



SEQ 0257 



******************** 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 

RTI 

ERROR 



»715,R0 
i#2S,Rl 

|5o,-(sp] 

|3$,-(SP 



{CALL THE SCOPE LOOP UTILITY 
{{LOAD RO WITH TEST NUMBER 
{LOAD Rl WITH TEST INSTRUCTION WORD 
{SET "T B BIT IN THE NEW PSW 
{MAKE NEW PC = 3$ 
{SCOPE SYNC 



23: 
3$: 

..*************************************************** 

{'TEST 716 BUT SERVICE TEST - (JSR *R,gA) 

j • **^*************^*******^* ************ ********** 

TST716: 

SCOPE „ {CALL THE SCOPE LOOP UTILITY 

MOV #716, RO {{LOAD RO WITH TEST NUMBER 

MOV Ml* 

•SBTTL USER CONT 



{INSTRUCTION SHOULD SPRING TRAP 
{BUT SERVICE IN XXX FAILED 

********** 
*************** 



LOAD Rl WITH TEST INSTRUCTION WORD 



1$: 



2$: 
3$: 



BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
RTT 

JSR 

ERROR 

MOV 



l#2$,Rl /LiUAU fli ■ 

Rolled breakpoint -- biti4 
#bitl4,e#bptl0c {breakpoint halt set ?? 



.+4 

SP,R5 



PC,(IMBUF1 

5 



**************************** 



{BR IF NOT 
{BREAK-DEPRESS CONTINUE TO CONTINUE 
{SAVE THE SP 

{FOR PROPER SP RESETTING ON ERROR LOOP 

{RESTORE SP FOR ERROR LOOPING 

{SET UP POINTER— DEST ADDR = 3$ FOR JSR 

{SET "T" BIT IN THE NEW PSW 

{MAKE NEW PC = 2$ 

{ SCOPE SYNC 

{SET "T" BIT - GO TO 2$ 

{INSTRUCTION SHOULD SPRING TRAP 

{BUT SERVICE IN XXX FAILED 

{RESTORE SP IF ALL OK OR NOT LOOPING 
**»*******••*•**•• ****** *********** 



. TEST 717 BUT SERVICE TEST - (JMP A) 

..******************* ***#******************* **i 

TST717: 



****************** 



2$; 

3$! 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 
RTT 

JMP 

ERROR 



1717, RO 
»#2$,R1 
}20,-(SP) 
|2$,-(SP> 



3$ 

5 



{CALL THE SCOPE LOOP UTILITY 
{{LOAD RO WITH TEST NUMBER 
{LOAD Rl WITH TEST INSTRUCTION WORD 
{SET "T* BIT IN THE NEW PSW 
{MAKE NEW PC = 2$ 
{SCOPE SYNC 

{SET "T" BIT - GO TO 2$ 

/JMP INSTRUCTION SHOULD SPRING TRAP 

{BUT SERVICE IN XXX FAILED 
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mm 

052706 
052712 

mm 

052730 
052732 

052734 

052740 



J52742 
750 



§52?70 
052774 
053000 
053002 



mm 

013701 
012737 

mm 052 

000257 
000006 

000177 010352 
104005 



000004 
"12700 



052762 010506 

""" mm 



000720 
052734 
52740 063312 

M m 



000721 



013701 053004 

mm 



001010 



^746 053004 

000207 
104005 
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T720 BUT SERVICE TEST - (JHP §A) 



*************************************************************** 

*** ****** ********************** ******* 

/CALL THE SCOPE_LggP_.UTILITY 



TST720J 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
RTT 



720,R0 
Rl 



HI'»f88V PO 



;>LOAD R0 WITH TEST NUMBER 
;L0AD Rl WITH TEST INSTRUCTION WORD 
;SET UP P0INTER--DEST ADDR = 3$ FOR JMP 
>SET "T" BIT 1H THE NEW PSW 
;MAKE NEW PC = 2$ 
;SCOPE SYNC 

>SET "T" BIT - GO TO 2$ 



2$: 
3$: 
; 



JMP 8MBUF0 ;JMP INSTRUCTION SHOULD SPRING TRAP 

ERROR 5 >BUT SERVICE IN XXX FAILED 

*********** ************* ******** ********** ************** ******* 

****** ******* 



;*TEST 721 BUT SERVICE TEST - (RTS PC) 

• . ************************************ **** ********** 

TST721 



1$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 
RTT 

RTS 

ERROR 



,R0 

E R1 



#721,1 

Iris* 

PC',|| S LPERR 

fell 



PC 
5 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 
;SAVE THE SP 

;F0R PROPER SP RESETTING ON ERROR LOOP 

JRESTORE SP FOR ERROR LOOPING 

;RTS WILL LOAD PC WITH 3S 

;SET "T" BIT IN THE NEW PSW 

;MAKE NEW PC = 2$ 

;SC0PE SYNC 

ISET W T" BIT - GO TO 2$ 

;RTS INSTRUCTION SHOULD SPRING TRAP 

;BUT SERVICE IN XXX FAILED 



• **************** ************ ****************** ****** *********** 

4 TEST 722 ALU ADO FUNCTION TEST 

THIS TEST VERIFIES THAT THE ALU ADD FUNCTION CAN RESPOND CORRECTLY 
TO THE 8 POSSIBLE COMBINATIONS THAT COULD OCCUR AT THE INPUTS OF 
EACH OF THE 16 BIT POSITIONS AS DESCRIBED BELOW: 



AIN 





1 
1 
1 
1 



BIN 



1 



CIN 


1 




1 



1 



THE TEST NO.S ALONG WITH THE CORRECT ANSWERS ARE STORED IN A TABLE 
TAGGED "ALUADD" AS SHOWN BELOW : 
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CQKDAC.P11 07-NOV-78 14:09 

13991 
13992 
13993 
13994 

ml 

13997 

Hfi] 

14000 
14001 
14002 

U88I 

14007 
14008 
14009 

Mil 

urn 
urn 
5§ii 

[4020 
L4021 



4024 
[4025 

ml 

14030 
L4031 
14032 
14033 
14034 
14035 

\m 

[4038 
14039 
[4040 
[4041 
4042 
£4043 

w 




053062 QQ5725 
053064 000761 

053066 012737 
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; ALUADD: NULL 

SRC DPI 
DST OP1 
SUM1 
SRC OP2 
DST OP2 
SUM2 
ETC. 

REPORTING THE ERROR THE ROUTINE WILL LOCK ON THE FAILING PAIR 



/ AFTER 
;OF NO 
•<**** 

TST722 



IS: 



4$: 



2$: 



3$i 



053016 001010 5$: 



SCOPE 

MOV 

MOV 

MOV 

CMP 

TST 
CMP 
BEQ 
MOV 
MOV 
CCC 

ADD 

CMP 
BEQ 

MOV 
MOV 

ERROR 

TST 

BR 

MOV 



|722<R0 
fALUADD+4/ R5 
{f$LPERR 
l,-(R5) 

(R5) + 

jjALUADD+62,R5 

(|5)+,R1 
(R5)*>R3 

R1,R3 
JR5),R3 

(R52/R4 
jJr5),R2 

is 5) * 

#1$/9#$LPERR 



/CALL THE SCOPE LOOP UTILITY 

j;LOAD RO WITH TEST NUMBER 

;R5 POINTS TO TABLE OF NO.S 

;L0OP ONLY ON FAILING PAIR OF #*S 

;RESET R5 TO POINT TO BAD GUYS 

;<OR NULL ENTRY FIRST TIME THROUGH) 

JPOINT TO A SRC OP 

;DONE ALL NO.S IN TABLE 7 

;BR IF YES 

JLOAD SRC OP 

JLOAD DEST OP 

;SCOPE SYNC 

>TEST THE ADD FUNCTION 

JCORRECT SUM ? 

;GO ADD NEXT PAIR IF YES 

;GET S / B SUM 
J GET OEST OP 

>ALU ADD OPERATION FAILED 

>C0RRECT R5 POINTER 
;GO DO NEXT PAIR 

;LOOP FROM BEGINNING ON ERROR 



• • *************************************************************** 

;*TEST 723 ALU SUB FUNCTION TEST 

;THIS TEST VERIFIES THAT THE ALU ADD FUNCTION CAN RESPOND CORRECTLY 
;TO THE 8 POSSIBLE COMBINATIONS THAT COULD OCCUR AT THE INPUTS OF 
;EACH OF THE 16 BIT POSITIONS AS DESCRIBED BELOW: 



BIN 



CIN 


1 


1 



1 
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14047 
14048 
14049 
14050 

urn 

14053 
14054 
14055 
14056 
14057 
14058 

14059 
4060 
4061 
4062 
4063 
1 4064 
4065 
1066 
[4067 
r " 568 

« 
14071 
14072 
14073 
14074 
14075 
14076 
14077 
14078 
14079 
14080 
14081 
14082 
14083 
14084 
14085 
14086 
14087 
14088 
14089 
14090 

U83! 

14093 
14094 
14095 
14096 
14097 
14098 
14099 



14100 
14101 
14102 




053114 
053116 
053122 
053124 
053126 
053130 



053132 160103 



053134 
053136 

053140 
053142 
053144 

053146 
053150 



021503 
001766 

011504 
014502 
104010 

005725 
000761 
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/THE TEST NO.S ALONG WITH THE CORRECT ANSWERS ARE STORED IN A TABLE 
;TAGGEO "ALUADD" AS SHOWN BELOW: 



;alusub: 




; AFTER REPORTING THE 

TST723 



ERROR THE ROUTINE WILL LOCK ON THE FAILING PAIR 
NEXT PAIR IF §WQ9=Q, 
*********************** 



t******** 



1$: 



4$: 



2$: 



3$: 



053152 012737 053102 001010 5$: 



SCOPE 
MOV 
MOV 
MOV 
CMP 

TST 
CMP 
BEQ 
MOV 
MOV 
CCC 

SUB 

CMP 
BEQ 

MOV 
MOV 
ERROR 

TST 
BR 

MOV 



#723 t R0 
lALUSUB-MfRS 



•(R5) 



R5)+ 

ALUSUB+62,R5 

Ss, 

R5 



<B5)+,R1 



R1/R3 



JR5),R3 



(R5)#R4 
-(RS),- 



1(5 



R2 



#1S,9#SLPERR 



/CALL THE SCOPE LOOP UTILITY 
; J LOAD RO WITH TEST NUMBER 
>R5 POINTS TO TABLE OF NO.S 
;L0OP ONLY ON FAILING PAIR OF #'S 
/RESET R5 TO POINT TO BAD GUYS 
>(OR NULL ENTRY FIRST TIME THROUGH) 
>POINT TO A SRC OP 
;OONE ALL NO.S IN TABLE 7 
>BR IF YES 

;load src op 
/load dbst op 
7scope sync 

;test the sub function 

korrect diff. ? 

;go sub next pair if yes 

;get s / b diff 
;get dest op 

?alu sub operation failed 

;c0rrect r5 pointer 
;go do next pair 

jlcop from beginning on error 



•.***»** *************************************** ******************* 

;*TEST 724 ALU "AND" FUNCTION TEST USING BIC INSTRUCTION 

?THIS TEST VERIFIES THAT THE ALU "AND" FUNCTION RESPONDS CORRECTLY 
>TO ALL POSSIBLE COMBINATIONS FOR EACH OF THE 16 BIT POSITIONS 
/IT EXECUTES THE BIC INSTRUCTION FOR THE FOLLOWING PAIRS OF 
/OPERANDS AND TESTS FOR THE INDICATED RESULT i 



;SOURCE OP 



DEST. OP 



RESULT 



Ml 



CQKDA-C KD11-K BASIC LOGIC TESTS 
CQKDAC.PU 07-NOV-78 14:09 



L4103 
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T724 ALU "AND" FUNCTION TEST USING BIC INSTRUCTION 

mm 

000000 
000000 
052525 
125252 

[HE 8 PAIRS OF NO.S AND THE ANSWERS ARE STORED IN A TEBLE TAGGED 
»ANDTAB" IN THE FOLLOWING PATTERN: 

;andtab: null 

SRC OP1 
DST OP1 
ANSI 
SRC OP2 
DST OP* 
IS2 



ANS2 
ETC. 



; AFTER REPORTING THE ERROR THE ROUTINE WILL LOCK ON THE FAILING 
;PAJR OF NO. § . IF SW29=1 OR GO ON TO TEST THE NEXT PAIR IF SW09=0 
• • ******* *********** ************************************** ******* 



4!t724: 



1$: 



4$! 



2S: 



3$: 



053166 001010 5$: 



SCOPE 

MOV 

MOV 

MOV 

CMP 

TST 

CMP 
BEQ 
MOV 
MOV 
CCC 

BIC 

CMP 
BEQ 

MOV 
MOV 
ERROR 

TST 

BR 

MOV 



#724 4 F0 
SANDTAB+4,R5 
PC.B*$LPERR 
-(RS),-(R5) 

|AN6tAB+62,R5 

(l5)+/Rl 
(R5}*#R3 

R1,R3 

R3,(R5) 
4$ 

<R5)«R4 
-£R5),R2 

#lS,e#$LPERR 



JCALL THE SCOPE LOOP UTILITY 

JiLOAD RO WITH TEST NUMBER 

;R5 POINTS TO TABLE OF TEST NO.S 

;LOOP ONLY ON FAILING PAIR OF #'S 

JRESET R5 TO POINT TO BAD GUYS 

J(OR NULL ENTRY FIRST TIME THROUGH) 

>POINT TO A SOURCE OPR 

;DONE ALL COMBINATIONS ? 

>BR IF YES 

>LOAD THE SRC OP 

;LOAO THE OEST OP 

JSCOPE SYNC 

>TEST THE "AND" 

JRESULT CORRECT ? 

;BR IF YES - GET THE NEXT PAIR 

>GET THE S / B DATA 
;GET DEST OP 
;ALU "AND" FAILED 

;CORRECT R5 POINTER 
;GO GET NEXT PAIR 

;LOOP FROM BEGINNING ON ERROR 



14158 



« • ************** *****••*****•*••••***»****•• *•**•*•*•*******••**» 

;*TEST 725 ALU "OR" FUNCTION TEST USING BIS INSTRUCTION 

;THIS TEST VERIFIES THAT THE ALU "OR" FUNCTION RESPONDS CORRECTLY 
;TO ALL POSSIBLE COMBINATIONS FOR EACH OF THE 16 BIT POSITIONS 
;IT EXECUTES THE BIS INSTRUCTION FOR THE FOLLOWING PAIRS OF 
; OPERANDS AND TESTS FOR THE INDICATED RESULT : 
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4159 
4160 

4}61 
4162 
4163 
4164 

mi 
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T725 ALU "OR" FUNCTION TEST USING BIS INSTRUCTION 



SEQ 0262 



41( 



_69 
4170 
4171 



4175 
4176 
4177 
4178 
4179 

4183 
4184 
4185 
4186 
4187 



4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 

\m 

4206 

mi 

4209 
4210 

Xl\\ 

Mil 



DEST. OP 



053264 
053266 
053272 



000004 
012700 
012705 
010737 
024545 

005725 
022705 
001413 
012501 
012503 
000257 



053302 050103 

053304 020315 

053306 001766 

053310 011504 

053312 014502 

053314 104010 

053316 005725 

053320 000761 

053322 012737 



mm 
mm 

125252 
052525 



RESULT 

mm 

urn 
mm 



;THE 8 PAIRS OF NO.S AND THE ANSWERS ARE STORED IN A TABLE TAGGED 
J"0RTAB" IN THE FOLLOWING PATTERN: 
;ORTAB: NULL 

SRC OP1 
DST OP1 
ANSI 
SRC OP2 
DST OP2 
ANS2 
ETC. 



000725 
063500 
001010 



AFT 

m 

T§T7 



1$: 



4$: 



2$: 



3$: 



ER REPORT 
R OF NO.S 
********* 

25: 

SCOPE 

MOV 

MOV 

MOV 

CMP 

TST 
CMP 
BEQ 
MOV 
MOV 
CCC 

BIS 

CMP 
BEQ 

MOV 
MOV 
ERROR 

TST 

BR 



ING THE ERROR THE ROUTINE WILL LOCK ON THE FAILING 

IF SW09=1 OR GO ON TO TEST THE NEXT PAIR IF SW09=0 
******************* ********************************* 

;CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
jR5 POINTS TO TABLE OF TEST NO.S 
JLOOP ONLY ON FAILING PAIR OF J/'S 
J RESET R5 TO POINT TO L -~ 




053252 001010 5$: 



: *********** 

>*TEST_726 _ INC £ 



2,R5 



R1/R3 

R3/(R5) 
4$ 

(R5).R4 
^R5},R2 

#1$,@#$LPERR 

**** ** i 



AD GUYS 
IMF THROUGH) 



J(0R NULL ENTRY FIRST 1 
JPOINT TO A SOURCE OPR 
;DONE ALL COMBINATIONS ? 
JBR IF YES 
JLOAD THE SRC OP 
/LOAD THE DEST OP 
JSCOPE SYNC 

;TEST THE "OR" 

JRESULT CORRECT ? 

;BR IF YES - GET THE NEXT PAIR 

JGET THE S / B DATA 
JGET DEST OP 
JALU "OR" FAILED 

;CORRECT R5 POINTER 
;G0 GET NEXT PAIR 

;LOOP FROM BEGINNING ON ERROR 



>****• *********** 

. — _ DEC / ADD TEST 

;THIS TEST COMBINES THE INC / DEC / 



************************** 

- CYCLE NO.S 000000-077777 
ADD INSTRUCTIONS IN THE FOLLOWING 



CQKDA-C KD11- 
CQKDAC.P11 



' BASIC LOGIC TESTS 
07-NOV-78 14:09 



4215 
4216 
7 



14219 



14224 

mi 
mil 

mi 



m 

\ml 

14244 
4245 
4246 
4247 
4248 

U249 
250 



4258 
L4259 
[4260 
[4261 

\\m 

14264 

\\m 

L4269 
[4270 



05; 

05! 
05i 

or 

0! 

05: 
05: 



330 
330 

¥ 

40 
42 
44 

50 
52 



000004 

00^0°? 
005002 
005004 
019737 
010203 
000257 



053354 060103 



053356 
053360 



020403 
001402 



053362 104010 
053364 000407 



005201 
100402 

mm 



000726 



001010 
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T726 INC / DEC / ADD TEST - CYCLE NO.S 000000-077777 

;TEST SEQUENCE: 

Jl. BOTH SOURCE AND DEST OPS ARE ZEROED 

J2. THE TWO NO.S ARE ADDED AND THE RESULT COMPARED WITH 000000 
J3. THE SOURCE OP IS INCREMENTED 
;4. THE DEST OP IS DECREMENTED 

J5. STEPS 2,3, AND 4 ARE REPEATED UNTIL THE SOURCE OP GOES 
J NEGATIVE 

;ON DETECTION OF A NON-ZERO RESULT THE ERROR IS REPORTED AND THEN IF: 



SEQ 0263 



1. SW09=0 

2. SW09=1 



THE TEST IS EXITED 

THE ROUTINE LOCKS ON THE FAILING PAIR OF OPERANDS 



:********************** ** ***•*******************•*****•< 



f§T726i 

10$: 

1$: 
2$: 

3$: 
4$: 



t ****** * 



053376 012737 053336 001010 5$: 



SCOPE 

MOV 

CLR 

CLR 

CLR 

MOV 

MOV 

CCC 

ADD 



CMP 
BEQ 

ERROR 

BR 

INC 
BMI 
DEC 
BR 

MOV 



|726,R0 
R2 

| 4 C, M SLPERR 

R1,R3 

R4,R3 
4$ 

10 

TST727 
Rl 

R2 
1$ 



;c all the scope loop utility 
jjload rq with test number 
Initialize regs to oooooo 



;LOOP only on failing pair of #*s 

;L0AD DEST OPERAND 
JSCOPE SYNC 

J ADD THE TWO TEST NO.S 
JRESULT S / B = 000000 

JRESULT = 000000 ? 
JBR IF YES 

JINCORRECT RESULT IN R3 

JJEXIT TO NEXT TEST 

J ADD 1 TO SOURCE OP 
JGET OUT IF IT WENT NEGATIVE 
JSUB 1 FROM THE DEST OP 
JGO ADD THE TWO NO.S 



#1OS,0#$LPERR JLOOP FROM BEGINNING ON ERROR 



> *************************************************************** 



•TEST 727 INC / DEC 

TEST COMBINES THE I 

SEQUENCE: 



teII 



/ ADD TEST - CYCLE NO.S 077777-000000 
NC / DEC / ADO INSTRUCTIONS IN THE FOLLOWING 



1. BOTH SOURCE AND DEST OPS ARE ZEROED 

2. THE TWO NO.S ARE ADDED AND THE RESULT COMPARED WITH 000000 

3. THE SOURCE OP IS DECREMENTED 

4. THE DEST OP IS INCREMENTED 

5. STEPS 2,3, AND 4 ARE REPEATED UNTIL THE DEST. OP GOES 
NEGATIVE 

JON DETECTION OF A NON-ZERO RESULT THE ERROR IS REPORTED AND THEN IF: 
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00004 

12700 000727 
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T727 INC / DEC / ADD TEST - CYCLE HO.S 077777-000000 




285 
284 

um 

14287 

km 
\w 
um 

14294 
14295 

14297 
14298 
14299 
14300 
14301 
14302 
14303 

urn 

14306 
14307 
14308 
14309 
14310 

hm 

14315 

hm 

14318 
14319 
14320 
14321 
}«22 
14323 
14324 



053430 060103 



053432 
053434 

053436 

053440 

053442 
053444 
053446 
053450 

05345? 



053510 
"53514 



053520 
05352? 
053524 
053526 



053532 
053534 
053536 



020403 
001402 

104010 

000407 

005202 
100402 
005301 
000765 

012737 




053516 070205 



100403 
001402 
102401 
103001 



053530 104044 



020304 
001002 
020102 



001010 



0004 

2700 000730 
3737 053516 
5001 

"704 000006 
702 000002 
5003 

2705 000003 
0277 



001076 



\'. 1S8?=? ?8i rou?inI EScks d o» the failing PAIR of OPERANDS 

J *************************************************************** 



) 

«T727 
10$ 



SCOPE 
MOV 



1$: 

2$: 



3$: 



4S: 



053412 001010 5$: 



JV 
CLR 
CLR 
CLR 
MOV 
MOV 
CCC 

ADD 



CMP 

BEQ 

ERROR 

BR 

INC 
BMI 
DEC 
BR 

MOV 



|J27,R0 
R4* 

|c ;| | $ LPERR 



R1/R3 

R4,R3 
4$ 

10 

TST730 
R2 

if 

1$ 



; call the scope loop utility 
;;load ro with test number 
jinitialize regs to 000000 



;LOOP ONLY ON FAILING PAIR OF #'S 
;LOAD DEST OPERAND 
JSCOPE SYNC 

;ADD THE TWO TEST NO.S 
>RESULT S / B = 000000 

;RESULT = 000000 ? 
;BR IF YES 

jincorrect result in r3 

;;go to scope exit 

j add 1 to dest. op 
;get out if it went negative 
;sub 1 from the source op 
;go ado the two no.s 



#10$,e#$LPERR ;LGOP FROM BEGINNING ON ERROR 



**************** ******************** ***************************** 

J*TEST 730 MUL RA,RB TEST J N:C = 1111 

..************ ******************** ********** ****** **•***•••**•*** 

TST730: 



2$; 



3$: 
4$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
MOV 
CLR 
MOV 

sec 

MUL 

BMI 
BEQ 
BVS 
BCC 



CMP 
BNE 
CMP 



»730,R0 

1$,g#$TMP0 



R5,R2 

3$ 
3| 
3$ 
4$ 

44 

R3,R4 
i!,R2 



/CALL THE SCOPE LOOP UTILITY 
JJLOAD RO WITH TEST NUMBER 
;GET TEST INSTRUCTION WORD 
>S/B RESULT IN R2 
;S/B RESULT IN R3 
JINITIALIZE REG 
INITIALIZE REG + 1 
;INITIALIZE SRC 
JSCOPE SYNC 

/TEST THE MUL 

>N:C=0000? 



>cond codes set improperly 
;reg+i correct? 

>BR IF NOT 
JREG CORRECT? 
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A/RB TEST ; N:C = 1111 



mi 

4329 
4330 

ffl\ 
4333 

# 

4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 

m 



m 

153 
154 
155 
156 
157 

1I9 
160 

6 \ 



4 

4361 

mi 

4365 

416$ 
4367 
4368 

m 
m 

4323 

m 

4376 

*f| 7 

4380* 
4381 
4382 



053540 
053542 



83I?4* 

053546 
053552 
053560 
053562 
053566 
053572 
053574 
053600 
053604 



053610 
053612 
053614 
053616 

053620 

053622 
053624 

mm 

053632 



053634 
053634 
053636 
053642 
053650 
053652 
053654 
053656 
053662 

nlm 



053676 
053700 
053702 
053704 



001401 
104045 



000004 
012700 

nmi 

012704 
012702 
005003 

mm 

000257 



053606 070215 



100403 

mm 

103401 

104044 

020304 
1002 

mi 

104045 



000004 

MBS* 

005001 
005004 

2705 



053674 070225 



100403 
001002 
102401 
103001 



000731 
053606 

mm 

063312 
000010 



win 



mm 

mm 



001076 



001076 



BEQ 



5$: 



> *********** 



$*TEST 731 
• • ********* 

TST731: 



TST731 ;;BR IF YES 

ERROR 45 ;MUL DELIVERED WRONG RESULT 

**************************************************** 

MUL (RA),RB TEST ; N:C = 0000-SET C 
******* ************* ****•*••***•*••*****•• ********* 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
MOV 
CLR 
MOV 
MOV 
CCC 

MUL 

BMI 
BEQ 
BVS 
BCS 

ERROR 

CMP 
BNE 
CMP 

BEQ 



RO 

3#$TMP0 



|123450,R4 
#012345, R2 
R3 

#MBUF0,R5 
#10, (R5) 



(R5),R2 
3$ 



44 

R3,R4 

R1,R2 
Tsf732 



JCALL THE SCOPE LOOP UTILITY 
JjLOAD RO WITH TEST NUMBER 
JGET TEST INSTRUCTION WORD 
;S/B RESULT IN R2 
JS/B RESULT IN R3 
J INITIALIZE REG 
JINITIALIZE REG ♦ 1 
;SET UP POINTER TO SRC 
/INITIALIZE SRC 
JSCOPE SYNC 

;TEST THE MUL 

JN:C=0001? 



>cond codes set improperly 
jreg+i correct? 

;BR IF NOT 

jreg correct? 
;;BR IF YES 



TS 



5$: 

•£*********** 

- I*S***2?*** 

T732: 

SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
MOV 
MOV 
CCC 



ERROR 45 ;MUL DELIVERED WRONG RESULT 

**•****•••*•**••*••****** **************** *********** 

****1J **!*♦* *t*S**£^******S***222S*2***5******< 



r ******* 



R4 

R2 
-1 
MB 
10 



2/R0 

5/MSTMP0 



,R3 

UF0,R5 
,(R5) 



;CALL THE SCOPE LOOP UTILITY 
>ifcS A 2„ R 2 SXia TEST NUMBER 
JGET TEST INSTRUCTION WORD 
;S/B RESULT IN R2 



2$: 



MUL 

BMI 
BNE 
BVS 

BCC 



(R5)+,R2 

3$ 
3| 
35 
4$ 



JS/B RESULT IN R3 
JINITIALIZE REG 
^INITIALIZE REG + 1 

;set up pointer to src 
jinitialize src 
>scope sync 

;test the mul 

;n:c=oioo? 



053706 104044 



020304 
001002 
020102 
001401 



053710 

mm 

053716 

053720 

053722 
053726 



104045 



022705 
001401 



063314 



053730 104046 



000004 

012700 000733 



8i 2701 



054000 001076 



012704 1. . . . . 
012702 000001 
005003 
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urn 

143 85 
14386 

14389 
14390 
14391 
14392 
14393 
14394 
14395 
14396 
14397 
14398 
14399 
14400 
14401 
14402 
14403 
14404 
14405 
14406 
14407 
14408 
14409 
14410 
14411 
14412 
14413 
14414 
14415 
14416 
14417 
14418 
14419 
14420 
1 4421 
14422 

\\m 

14425 

\\\Vl 

14428 
14429 
14430 
14431 
14432 
14433 
14434 
14435 
14436 

urn 
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T732 HUL (RA)+,RB TEST } H:C = 0000-SET Z 



053732 

mm 

053740 
053746 
053752 
053756 
053762 
053764 
053770 
053776 



01270J 
012733 
000251 



70 063312 



054000 070235 



054002 
054004 
054006 
054010 



100003 
001402 
102401 
103001 



054012 104044 



054014 
054016 
054020 
054022 

054024 

054026 
054032 



020304 
001002 
020102 
001401 

104045 

022705 
001401 



054034 104046 



3S: 
4$: 



ERROR 



BNE 
CMP 
BEQ 



5$: ERROR 

6$: CMP 
BEQ 

ERROR 
• • *********** 

;*TEST 733 
• . *********** 

T5T733: 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CCC 



2$: 



3$: 
4$: 



5$: 
6$: 



MUX 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 
BNE 
CMP 
BEQ 



44 

R3/R4 

lf,R2 
6$ 

45 

#MBUF0*2,R5 
TST733 



******** ********* 

MUL ei RA >*tS8 
**************** 



I733,R0 
#2$^|#$TMP0 
-l6,R4 
1/R2 
3 

jfATA*10,R5 
|-1O,0#MBUFO 

@(R5)+/R2 



;COND CODES SET IMPROPERLY 

;REG*1 CORRECT? 
;BR IF NOT 
JREG CORRECT? 
;BR IF YES 

>MUL DELIVERED WRONG RESULT 

?DID H5 GET AUTO- INCREMENT ED? 
>;BR IF YES 

;AOTO INCREMENT DID NOT OCCUR 
*********************************** 

I.5m.i****22.2;iSI***i**S**..I*. ♦ 

;CALL THE SCOPE LOOP UTILITY 

>>LOAD RO WITH TEST NUMBER 

>GET TEST INSTRUCTION WORD 

JS/B RESULT IN R2 

;S/B RESULT IN R3 

JINITIALIZE REG 

; INITIALIZE REG ♦ 1 

>SET UP POINTER TO POINTER TO MB UFO 
INITIALIZE SRC 
;SCOPE SYNC 

;TEST THE MUL 

;n:c=1000? 



154036 
554036 



000004 



CMP 

BEQ 

ERROR 
• ♦ *********** 

ehi.U.**.* 

TST734: 

SCOPE 



35 
45 

44 

R3,R4 

R?,R2 
6$ 

45 

|ATA+12,R5 
TST734 

46 

***************** 

MUL -(RA),RB T 
***************** 



;COND CODES SET IMPROPERLY 

;REG+1 CORRECT? 
;BR IF NOT 
;REG CORRECT? 
?BR IF YES 

>MUL DELIVERED WRONG RESULT 

?DID R5 GET AUTO- INCREMENT ED? 
;;BR IF YES 

;AUTO INCREMENT DID NOT OCCUR 
*********************************** 

EST } N:C = liil-CLR ALL BUT N i SRC,DSK 
5************* ********************* 

JCALL THE SCOPE LOOP UTILITY 
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14439 
14440 
14441 
14442 
14443 
14444 
14445 
14446 
14447 
14448 
14449 
14450 
14451 
14452 
14453 
14454 
14455 
14456 
14457 
14458 
14459 
14460 
14461 

urn 

14464 
14465 

\tt& 

14468 
14469 
14470 
14471 

mi 
Mm 

14478 
14479 
14480 

ink 

14483 
14484 
14485 

fitt? 

[4488 



MACY 
T734 



11 30A(1052) 15-NOV-78 
MUL -(RA),RB TEST ; 
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N:C = 1111-CLR ALL BUT N 



> SRC/DSK = +,- 



14489 
14490 
14491 
J4492 
14493 
14494 



054040 
054044 
054052 
054056 
054062 
054066 
054070 
054074 
054102 


012700 
013737 
012701 
012704 
012702 
005003 
012705 
012737 
000277 


000734 
054104 
177777 
177770 
177777 

063314 
(100010 


054104 


070245 




054106 
054110 
054112 
054114 


100003 
001402 
102401 
103001 




054116 


104044 




054120 
054122 
054124 
054126 


020304 
001002 
020102 
001401 




054130 


104045 




054132 
054136 


0*0^401 


063312 


054140 


104046 





000004 
01270<j 

012704 
012702 
012703 
012705 
012737 
000277 

054210 070255 

054212 
054214 

0? " 
0? 

054222 
054224 



000735 

054210 001076 

106420 
177776 
177777 
063310 
134570 



063312 



2$: 



3$: 
4$: 



5$: 
6$: 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
SCC 

MUL 

BPL 
BEQ 
BVS 
BCC 



CMP 
BNE 
CMP 
BEQ 



#734/R0 
|#2$g|#$TMP0 

#MBUF0*2,R5 
IlO/SSMBUFO 



•(R5),R2 



R3,R4 

r!,R2 
6$ 



ERROR 45 



CMP 

BEQ 



#MBUF0,R5 

fs 



ERROR 



tST735 
46 



j;LOAD RO WITH TEST NUMBER 
;GET TEST INSTRUCTION WORD 
JS/B RESULT IN R2 
;S/B RESULT IN R3 
INITIALIZE REG 
JINITIALIZE REG ♦ 1 
;SET UP POINTER TO SRC 
INITIALIZE SRC 
;SCOPE SYNC 

/TEST THE MUL 

JN:C=1000? 



JCOND CODES SET IMPROPERLY 

JREG+I CORRECT? 
>BR IF NOT 
;REG CORRECT? 
;BR IF YES 

;MUL DELIVERED WRONG RESULT 

;DID SRC REG GET AUTO-DECREMENTED? 
>;BR IF YES 



>*******************< 



f§T7 



;AUTO DECREMENT DID NOT OCCUR 

**************** ********************* 

ST 735 MUL fa-(RA),RB TEST £ N:C = UIItCLR ALL BUT C J 

************ ****************************** ***************** 

35 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
SCC 

MUL 

BMI 
BEQ 
BVS 
BCS 

ERROR 

CMP 



#735, RO 
gpS/?#$TMP0 

#106420, R4 

i-l«R3 
SATA+12/R5 
#-43210, @#MBUF0 

@-(R5),R2 

3? 
3? 
3$ 
4$ 

44 

R3,R4 



;CALL THE SCOPE LOOP UTILITY 
JjLOAD RO WITH TEST NUMBER 
JGET TEST INSTRUCTION WORD 
>S/B RESULT IN R2 
;/S/B RESULT IN R3 
JINITIALIZE REG 
; INITIALIZE REG ♦ 1 

)SET UP POINTER TO POINTER TO MBUFO 
INITIALIZE SRC 
;SCOPE SYNC 

>TEST THE MUL 

;N:C=0001? 



;COND CODES SET IMPROPERLY 
;REG*1 CORRECT? 
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4495 
4496 
4497 
4498 
4499 
4500 
4501 
45 02 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 

m\ 
m\ 

4516 
4517 
4518 

mi 

4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
_4530 
14531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 

4548 
4549 

4550 



054226 
054230 
054232 



054236 
054242 



054246 
054246 
054250 
054254 
054262 
054264 
054266 
054272 
054276 
054302 
054306 



054314 
054316 
054320 
054322 



054326 
054330 
054332 
054334 



001002 
020102 
001401 



054234 104045 



022705 063306 
001401 



054244 104046 



000004 
012700 
013737 
005001 
005004 

mm 

012705 
005065 
000277 



100403 
001002 
102401 
103001 



054324 104044 



020304 
001002 
020102 
001401 



054336 104045 



000736 
054310 



1^^77 

883312 



054310 070265 000002 




001076 



001076 



063312 



T735 



5$S 
6$: 



HUL 

BNE 
CMP 
BEQ 



CMP 

BEQ 



ERROR 



g-(RA),RB TEST ; 

§f,R2 
6$ 

45 



#ATA*10,R5 

TS 



fST736 
46 
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N:C = 1111-CLR ALL BUT C ; SRC/DST 
>8eG I COr8ScT7 

;br if yes 

;mul delivered wrong result 

;did R5 get auto-decremented? 
;;BR IF YES 



• • a************************************************************** 

* TEST 736 

' ~>** ********************************************** ************* 



r"TEJ 

TST736: 



3$: 
4$: 



SCOPE 

MOV 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CLR 

SCC 

HUL 

BMI 
BNE 
BVS 
BCC 

ERROR 

CMP 
BNE 
CMP 
BEQ 



;AUTO INCREMENT DID NOT OCCUR 
******************** ****i 
MUL X(RA),RB TEST J NtC = 1111 TO 0100 

****************** *«******##JJ****«#Ji**< 

;CALL THE SCOPE LOOP UTILITY 
MLOAD RO WITH TEST NUMBER 
JGET TEST INSTRUCTION WORD 
>S/B RESULT IN R2 
;S/B RESULT IN R3 
7INITIALIZE REG 
; INITIALIZE REG ♦ 1 
;SET UP POINTER TO SRC 
; INITIALIZE SRC 
; SCOPE SYNC 



RO 

M$TMP0 



R4 

#012345, R2 
I-1/R3 
$MBUF0,R5 
2(R5) 

2(R5),R2 

3§ 
3S 
3S 
4$ 

44 

R3,R4 

rLr2 
TST737 



5$: 
.,*« 

I ;«„_. 

TST737: 



ERROR 45 



;test the mul 
;n:C=oioo? 



;COND CODES SET IMPROPERLY 

;REG+1 CORRECT? 
;BR IF NOT 
}REG CORRECT? 
;;BP IF YES 

;MUL DELIVERED WRONG RESULT 



MUL 8X(R A) 4 RB TEST 
i****************** 



SCOPE 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

CCC 




*ATA,R5 
|10,§#M3UF0 



********************** ********* 

/CALL THE SCOPE LOOP UTILITY 

>;LOAD RO WITH TEST NUMBER 

;GET TEST INSTRUCTION WORD 

;S/B RESULT IN R2 

JS/B RESULT IN R3 

INITIALIZE REG 

JINITIALIZE REG + 1 

;GET POINTER TO TABLE OF POINTERS 

; INITIALIZE SRC 

; SCOPE SYNC 



14577 

P 
14580 

14581 

US83 

14588 

urn 

14591 
14592 

14593 
4594 
4595 
4596 
4597 
4598 
4599 
14600 
14601 
14602 

um 

14605 
14606 



054404 070275 000010 



054410 
054412 
054414 
054416 



mm 

020102 
001401 



054420 104045 
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14551 
14552 
14553 
14554 
14555 
14556 
14557 
14558 
14559 
14560 
14561 
14562 
14563 
14564 
14565 
14566 
14567 
14568 
14569 
14570 

\m 

14S73 
J4574 



054422 
054422 
054424 
054430 
054436 
054442 
054446 



000004 

mm 

005002 

mm 

071227 

100403 
001402 
102401 
103001 

104044 

020304 
001002 
020102 
001401 

054504 104045 



054456 

054462 
054464 
054466 
054470 

054472 

054474 
054476 
054500 
054502 



000740 
054456 
010000 
000001 

020001 
000002 



054506 
054506 
054510 
054514 
S 545 **? 

054532 
054536 
054542 

054544 

054550 
054552 



mm 

13737 





, 

012703 
000257 

071227 000004 



000741 
054544 

IP 

177762 



mm 



001076 



001076 
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MUL 

CMP 
BNE 
CMP 

BEQ 



3$: 



ei0(R5),R2 

R3,R4 

rLr2 
TST740 

45 



;test the mul 
;reg+i correct? 

;BR IF NOT 
;REG CORRECT? 
JJBR IF YES 



. . *********** 

;*TEST 740 
j . *********** 

TST740: 



;MUL DELIVERED WRONG RESULT 

**************************************************** 

DIV tN.RA TEST ; N:C = 1111 
************************************ t 



***************** 



3$: 
4$: 



SCOPE 




MOV 




MOV 




MOV 




MOV 


11 


CLR 




MOV 




SCC 




DIV 


#2 


BMI 


3$ 


BEQ 


35 


BVS 


3$ 


BCC 


4$ 


ERROR 


44 


CMP 


R3 


BNE 


n 


CMP 




BEQ 


TS 


ERROR 


45 



40, RO 

nmnr 

,R4 



#020001, R3 



.R2 



5$: 

I *********** 

►TEST 741 
• *********** 

5T741: 

SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 



;C ALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;GET COPY OF TEST INSTRUCTION 
;S/B RES IN R2 
;S/B RES IN R3 
;SET UP REG OPERAND 
;SET UP REG+1 OP 
>SCOPE SYNC 

JTEST DIV 

;n:C=0000? 



;COND CODES SET IMPROPERLY 

;CORRECT RESULT IN REG+1? 
;BR IF NOT 

>C0RRECT RESULT IN REG? 
>;BR IF YES 

)DIV DELIVERED WRONG RESULT 



a******************** ******************************* 

DIV #N,RA TEST i RA NEGATIVE J N:C = 0000 
******* ************************************** ******* 



2$: 



DIV 



BPL 
BEQ 



1741, RO 
#2$jjS#$TMP0 
-14.,R3 
#4,R2 

n 



j call the scope loop utility 
; ; load ro with test number 
;get copy of test instruction 
;s/b res in r2 
;s/b res in r3 
>set up reg operand 
;set up reg+1 op 
;scope sync 

j test div 

;n:c=iooo? 
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14607 
14608 
14609 
14610 

\xm 

urn 
inn 

14617 
14618 



1463 
14634 
14635 
14636 
14637 
14638 
14639 
14640 
14641 
14642 
14643 
14644 
14645 
14646 
14647 
14648 
14649 
14650 

urn 

14653 
14654 

\m 

14657 
14658 
14659 
14660 
14661 
14662 



054554 
054556 



102401 
103001 



054560 104044 



054562 
054564 
054566 
054570 



020304 
001002 

mm 



054572 104045 




100403 
001002 
102401 
103001 



054642 104044 



054644 
054646 
054650 
054652 



020304 
001002 
020102 
001401 



054654 104045 



0546§6 
054656 
054660 
054664 

mm 

054702 
054704 
054710 

054712 071227 



001076 



000002 



000743 

mm 001076 

000002 

000016 

177774 



T741 



3S! 
4$i 



DIV #N,RA TEST ; RA NEGATIVE ; N:C = 0000 



BVS 
BCC 

ERROR 

CMP 
BNE 
CMP 

BEQ 

ERROR 



R3,R4 
45 



>COMD CODES SET IMPROPERLY 

>C0RRECT RESULT IN REG+1? 
/BR IP NOT 

;C0RRECT RESULT IN REG? 
>;BR IF YES 

;DIV DELIVERED WRONG RESULT 



5$: 

jj******** **************** *************************************** 

? • ********'******2I** i *t ***** »*!$*******» *2**122***** »***»»*** 

TST742: 

;C ALL THE SCOPE LOOP UTILITY 

;»L0AD R0 WITH TEST NUMBER 
JGET COPY OF TEST INSTRUCTION 
;S/B RES IN R2 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
CLR 
MOV 
CCC 

DIV 

BMI 
BNE 
BVS 
BCC 



CMP 
BNE 
CMP 
BEQ 

ERROR 



#742, RO 

*i' M 

»1/R3 

*2,R2 

3$ 
3| 
3? 
4S 



H3,R4 

TST743 
45 



>S/B RES IN R3 
?SET UP REG OPERAND 
?SET UP REG+1 OP 
;SCOPE SYNC 

;TEST DIV 

;n:c=oioo? 



>COND CODES SET IMPROPERLY 

;CORRECT RESULT IN REG+1? 
JBR IF NOT 

;CORRECT RESULT IN REG? 
;?BR IF YES 

;DIV DELIVERED WRONG RESULT 



;*TEST 743 DIV #-N,RA TEST > RA POS 

• • ********************** ***************************************** 

TST743: 

>C ALL THE SCOPE LOOP UTILITY 

;;LOAD R0 WITH TEST NUMBER 
;GET COPY OF TEST INSTRUCTION 
JS/B RES IN R2 
>S/B RES IN R3 
;SET UP REG OPERAND 
>SET UP FEG + 1 OP 
} SCOPE SYNC 



SCOPE 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

CCC 



!743,R0 
#|$U|#STMP0 
2,1*4 
#14.,R3 



2$: 



DIV 



ff-4,R2 



>TEST DIV 
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14663 
14664 
14665 
14666 

his 

14669 
14670 
14671 
14672 
14673 

m 

14677 
14678 
14679 
14680 
14681 

\ffli 

14684 
14685 
14686 
14687 
14688 
14689 
14690 
14691 
14692 

{4694 
14695 
14696 

inn 

14699 

i 

14705 
14706 

ml 
urn 

14711 
14712 

\mi 

14715 
14716 
14717 
14718 



054716 
054720 



054730 
054730 
054732 
054736 
054742 
054746 
054752 



054762 
054764 
054766 
054770 

054772 
054776 



055024 
055026 
055030 
055032 

055034 
055040 



320304 
301002 



054722 020102 
054724 001401 



054726 104045 



000004 
012700 
013701 
012704 
005037 
012702 



100424 
001423 
102022 
103421 

012702 
005003 



055000 071227 



055004 
055006 



055014 012704 
055020 071227 



100403 
001402 
102001 
103405 

013703 
012702 



055044 104001 



000744 
Q54756 
000002 
177776 
000050 



054756 071227 000005 



177777 
177776 



000003 
000000 



177776 
177776 



T743 



DIV #-N,RA TEST 



RA 



15:26 
POS 



PAGE 272 



CMP 
BNE 
CMP 
BEQ 



R3,R4 

Rf,R2 
TST744 



ERROR 45 



;CORRECT RESULT IN REG+1? 
;BR IF NOT 

JCQRRECT RESULT IN REG? 
;;BR IF YES 

JDIV DELIVERED WRONG RESULT 



3$: 

..*************************************************************** 

;*TEST 744 DIV TEST - V BIT GETS SET 

;* THIS TEST TESTS THAT THE V BIT CAN BE SET IN ALL THE 

',* POSSIBLE WAYS. SINCE THE INSTRUCTION SHOULD BE ABORTED, THE 

;* RESULTS CANNOT BE GUARANTEED. FOR THIS REASON, ONLY 

! • ****** ************************* 

TST744: 

SCOPE }C ALL THE SCOPE LOOP UTILITY 

MOV *744,R0 >>LOAD RO WITH TEST NUMBER 

MOV 1#2$, Rl ;LOAD Rl WITH TEST INSTRUCTION WORD 

MOV ff2 K4 ,S/B PSW 

CLR S#£SN JCLEAR OUT OTHER PSW BITS 

MOV #50, R2 ?SET UP REG CP 



2$: 



3$: 



DIV 

BMI 
BEQ 
BVC 
BCS 

MOV 
CLR 

OIV 

BMI 
BEQ 
BVC 
BCS 

MOV 

DIV 

BMI 
BEQ 
BVC 
BCS 

MOV 
MOV 



;TEST DIV - 
>n:C=0010? 



SHOULD ABORT 



INITIALIZE REG OP 
>INITILAIZE REG+1 OP 



#-2,R2 



?TEST DIV — 
>N:C=0010? 



SHOULD ABORT 



;S/B PSW 

;TEST DIV BY — 
;N:c=0010? 



SHOULD ABORT 



>;IF ALL OK, THEN EXIT TEST 



JGET WAS PSW 
DESTINATION IS PSW 



1 CONDITION CODES SET WRONG 

****** ******************** * 

ASH #N,RA TEST > SHIFT LEFT i N:C = 00Q0 TO 1010 

**************************************** ****I*i*1 



• . *************************************************************** 

;*TEST 745 

j. ********* ********* i 
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14719 

}* 

ml 

14724 
4225 
4726 
4727 
4728 

I4?3? 
4731 
4732 
47 33 
4734 
4735 
14736 
14737 
14738 
14739 
14740 
14741 
14742 
14743 
14744 
147 45 
14746 
14747 
14748 
14749 
14750 
14751 
14752 
14753 
14754 
14755 
14756 
14757 
14758 
14759 
14760 

urn 
mi 

14765 
14766 
14767 
14768 
14769 
14770 
14771 
14772 



055046 

8iiol 6 o 

055054 
055060 
055064 
055070 

055072 

055076 
055100 
055102 
055104 

055106 104002 



055110 
055112 
055114 



020304 
001401 
104002 



000745 
055072 
123450 
112345 



000003 



055116 
055116 
055120 
055124 
055130 
055132 
55136 
055140 


000004 
012700 
013701 
005004 
012703 


000746 
055142 

000004 


05514? 


072327 


177775 


055146 
055150 
055152 
055154 


100403 
001002 
102401 
103401 




055156 


104002 




055160 
055162 
055164 


020304 
001401 
104002 
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T745 ASH fN/RA TEST ; SHIFT LEFT ; N:C = OOOO TO 1010 

TST745: 



2$; 



3$: 
4$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
CCC 

ASH 

BPL 
BEQ 
BVC 
BCC 



CMP 
BEQ 
ERROR 



1745, RO 



#3,R3 



R3,R4 

TST746 

2 



;CALL THE SCOPE LOOP UTILITY 
;;LOAD RO KITH TES" ~"~ 
JLOAD Rl WITH TEST 



TEST NUMBER 
EST INSTRUCTION WORD 



>S/B RESULT 
;INITIAL REG 
; SCOPE SYNC 

/TEST THE ASH 

JN:C=1010? 



; incorrect condition codes 

;correct result? 
>;br if yes 

;ash delivered wrong result 



• . *************************************************************** 

;*TEST 746 ASH «N,RA TEST ; SHIFT RIGHT ; N:C = 1000 TQ0101 

■.****************************************** *W****************** 

TST746: 

;CALL THE SCOPE LOOP UTILITY 

;>LOAD RO WITH TEST NUMBER 
;LOAD Rl WITH TEST INSTRUCTION WORD 



2$: 



3$: 
4$: 



SCOPE 
MOV 
MOV 
CLR 
MOV 
CCC 
SEN 

ASH 

BMI 
BNE 
BVS 
BCS 

ERROR 

CMP 
BEQ 
ERROR 



746/R0 
|2$,R1 

#4,R3 



#-3,R3 

3$ 
3| 

4$ 



R3,R4 
TST747 



;S/B RESULT 
JINITIAL REG 
;SCOPE SYNC 
;CODES = 1000 



;TEST THE ASH 
;N:C=0101? 



;IKCORRSCT CONDITION CODES 

;C0RRECT RESULT? 
;;BR IF YES 

;ASH DELIVERED WRONG RESULT 



000271 



• . *************************************************************** 

>'tEST 747 ASH #N»RA TEST i SHIFT LEFT ; N:C = 1111 TO 1000 

•J*************************************************************** 

TST747: 

SCOPE >CALL THE SCOPE LOOP UTILITY 

MOV Jf747,RQ ;>LOAD RO WITH TEST NUMBER 

MOV §f2JxRl ;L0AD Rl WITH TEST INSTRUCTION WORD 

MOV II77234,R4 >S/B RESULT 

MOV I123432/R3 ;INITIAL REG 

SCC >SCOPE SYNC 



CQKDA-C KD11-K BASIC LOGIC TESTS 
CQKDAC.P11 07-N0V-78 14:09 



055212 072327 177772 
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T747 ASH #N/RA TEST ; SHIFT LEFT ; N:C = 1111 TO 1000 




000005 



001076 



001076 



2$: 



3$: 
4$: 



ASH 

BPL 
BEQ 
BVS 
BCC 

ERROR 

CMP 
BEQ 
ERROR 



#-6,R3 



R3/R4 

TST750 

2 



;test the ash 
;n:c=iooo? 



; incorrect condition codes 

;correct result? 
;;br if yes 

>ash delivered wrung result 



•j *************************************************************** 

;*TEST 750 ASHC #N*RA TEST i SHIFT LEFT ; N:C = OOOO TO 1010 

•.*********************W********************* ********** ********* 

TST750: 

JCALL THE SCOPE LOOP UTILITY 
;;LOAD RO WITH TEST NUMBER 
;GET TEST INSTRUCTION WORD 
;S/B RES IN R2 



2$: 



3$: 
4$: 



5$: 



SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

ASHC 

BPL 
BEQ 
BVC 
BCC 

ERROR 

CMP 
BNE 
CMP 
BEQ 
ERROR 



|750/R0 
111 45 R2 

»14?1sIJrS 



#3/R2 



>s/b res in r3 
; initialize combined 
} registers 
;scope sync 

>test ashc 

;n:c=ioio? 



;COND CODES WRONG 

STOP HALF OF RESULT CORRECT? 
>RR IF NOT 

JLOWER HALF OF RESULT CORRECT? 
>;BR IF YES 

;ASHC DELIVERED WRONG RES 



t . *************************************************************** 

;*TEST 751 ASHC #N £ RA TEST ; SHIFT RIGHT ; N:C = 1000 TO 0101 

••***•***•**•*•****••*•»****•*•*•••**•********•••****•** ********* 

TST751: 



SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
CCC 
SEN 



»751,R0 
»p$,e#$TMP0 



R4 
R2 
#5/R3 



;CALL THE SCOPE LOOP UTILITY 
;;LOAO RO WITH TEST NUMBER 
>GET TEST INSTRUCTION WORD 
;S/B RES IN R2 
;S/B RES IN R3 
INITIALIZE COMBINED 
> REGISTERS 
; SCOPE SYNC 
>CODES = 1000 
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T751 ASHC #N,RA TEST ; SHIFT RIGHT ; N:C = 



1000 TO 0101 



SEQ 0274 



urn 

14833 
14834 
14835 
14836 
14837 

IP 

14840 

14841 
14842 
14843 
14844 
14845 
14846 
14847 
14848 
14849 
14850 

urn 

14853 

14854 
4855 
4856 
4857 
4858 
4859 
14860 

mi 

14865 
14866 
14867 
14868 
14869 
14870 

H!?i 

mi 

14875 
14876 
14877 
14878 
14879 
148R0 

\\m 

14883 
14884 



055356 073227 177775 



055372 104044 



055374 
055376 
055400 
055402 
055404 



020102 
001002 
020403 
001401 
104045 



055406 
055406 
055410 


000004 
012700 


000752 


055414 
055422 
055424 

mm 

055440 
055444 
055450 
055454 


032737 
001401 
000000 

mm 
mm 

012703 
000257 


100000 

055456 
177234 
135275 
123456 
127542 


055456 


073227 


177772 


055462 
055464 
055466 
055470 


mm 

102401 
103401 




055472 


104044 




055474 
055476 
055500 
055502 
055504 


020102 
001002 
020403 
001401 
104045 





063234 



001076 



2$: 



3$: 
4$: 



ASHC 

BMI 
BNE 
BVS 
BCS 

ERROR 

CMP 
BNE 
CMP 
BEQ 

5$: ERROR 
************ 



>TEST ASHC 
;N:C=0101? 



;C0ND COOES WRONG 

;T0P HALF OF RESULT CORRECT? 
;BR IF MOT 

;LOWER HALF OF RESULT CORRECT? 
; ;BR IF YES 

;ASHC DELIVERED WRONG RES 
************************************************ 

il*!*******^ 



; 4 TEST 752 ASHC #N,RA TEST } SHIFT RIGHT ; Ni£ 

5 . ****** *•*•••*** •***!• *************** ****** ••*•*** 

TST752: 

SCOPE /CALL THE SCOPE LOOP UTILITY 

MOV #752, RO ;;LOAD RO WITH TEST NUMBER 

. SBTTL USER CONTROLLED BREAKPOINT -- BIT15 



2$: 



3$: 
4$: 



5$: 



BIT 
BEQ 
HALT 
MOV 
MOV 
MOV 
MOV 
MOV 
CCC 

ASHC 

3PL 

BEQ 
BVS 
BCS 

ERROR 

CMP 
BNE 
CMP 
BEQ 
ERROR 



#BIT15,g#BPTLOC BREAKPOINT HALT SET ?? 
;BR IF NOT 

JBREAK-DEPRESS CONTINUE TO CONTINUE 
$TMP0 ; GET TEST INSTRUCTION WORD 
„-,Rl ;S/B RES IN R2 

i.j5275,R4 ;S/B RES IN R3 

123456, R2 UNITIALIZE COMBINED 

127542, R3 J REGISTERS 

;SCOPE SYNC 



.♦4 



#-6,R2 



3S 
4$ 

44 

R1,R2 

R4\R3 

TST753 

45 



;test ashc 
;n:c=1000? 



JCOND CODES WRONG 



;T0P HALF OF RESULT CORRECT? 
JBR IF NOT 

;LOWER HALF OF RESULT CORRECT? 
>JBR IF YES 

;ASHC DELIVERED WRONG RES 



14885 
14886 



THIS SECTION OF THE MED TESTS EXERCISES CERTAIN SCRATCH 
PAD REGISTERS USING MED READS AND WRITES. THEIR ORIGINAL 
CONTENTS ARE RESTORED BUT: 



************** 



IMPORTANT NOTE 



******************** 



THE CONSOLE MUST NOT I I I BE USED DURING THESE MED * 
TESTS. NO INTERRUPTS OR TRAPS CAN BE ALLOWED EITHER* 



000752 

000304 
140000 
001000 
055566 
055566 
177777 
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14887 
14888 
14889 
14890 
14891 
14892 
14893 
14894 
14895 
14896 
14897 
14898 
14899 
14900 

um 

14903 
14904 
14905 
14906 
14907 



14910 
14911 
14912 
14913 
14914 
14915 
14916 
14917 
14918 
14919 
14920 
14921 
14922 
14923 
J4924 
14925 
J4926 
14927 
14928 
14929 

urn 
urn 

14934 
14935 
14936 
14937 
14938 
14939 
14940 
14941 
14942 
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15:26 PAGE 276 
- BIT15 



SEQ 0275 




177776 

000004 
000010 



mm 

177776 



0004 
0010 



******************************************************* 



********************************** 



► ******.« ******************** * 



. . •*** 
f$T753 



MEDl: 



753 CHECK MED IS ILLEGAL IN USER - EXECUTES IN KERNAL 

THE NEXT TEST BELOW CHECKS TO SEE THAT THE "MED" 
(MAINTENANCE, EXAM, AND DEPOSIT) INSTRUCTION WILL EXECUTE 
WHEN IN KERNEL MODE WITHOUT AFFECTING THE PSW AND 
THAT IT IS ILLEGAL IN USER MODE 
************ ************************ ************* ********** 



MOV 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MED 

.WORD 

ERROR 

BR 

TST 

BEQ 

ERROR 

CMP 
MOV 
MOV 



MEDO: CLR 
MED 
. WORD 
BCS 
BVS 
8MI 
BNE 

MEDHLT: ERROR 



2$i 



It: 



#752, RO 

304,g#UBREAK 

140O00,g#PS« 

STACK,SP 

2$,d#ERRVEC 

2S,g#RESVEC 

041 



(SP)+,(SP)+ 

|berr,merrvec 
|rserr>|#resvec 

@#PSW 
041 

MEDHLT 

MEDHLT 

MEDHLT 

.+4 

14 



?;setup missed test & full wrd test # prior to scope 

jcall the scope loop utility 

;s£t scope sync for med instr 

>go td user mode 

; setup user stack ptr. 

;set error trap vector to 2s below 

;load reserved inst. trap vector 

;load ri with a -i 

;CLEAR RO 

>TRY TO DO MAINT. EXAMINE 
;MED READ CODE FOR Rl 

;EFROR - MED INST. NOT ILLEGAL IN USER 

;IS RO UNCHANGED? 
;BRANCH IF YES 

JERROR - MED INSTRUCTION WAS EXECUTED 

; BEFORE TRAPPING 

;CLEAN UP STACK 

JRESTORE ERROR TRAP VECTOR 

JRESTORE RESERVED INST. TRAP VECTOR 

;GO TO KERNEL MODE, CLEAR COND. CODES 
>DO MAINT. EXAMINE OF Rl 
;MED READ CODE FOR Rl 



; ERR OR CC-BITS IN PSW AFFECTED BY MED 



..*************************************************************** 

;*TEST 754 MED TEST - R/W DATA PATTERNS TC REGS 

;* THIS PARTICULAR MED TEST WRITES DATA PATTERNS 

;* TO THOSE INTERNAL REGS. WHICH CAN BE WRITTEN 

;* AND READ WITHOUT SPECIAL CONSIDERA IONS. REGISTERS 

;* REQUIRING SPECIAL TESTS ARE TESTED IN LATER 

;* MED TESTS. 

;* TABLE II CONTAINS THE REGISTER ADDRESSES. 



055634 

055634 012700 000753 



f$T754: 



A MAX. OF 3 ERRORS ARE REPORTED FOR EACH LOC. 
********************************************************** 

MOV #753, RO ;;SETUP MISSED TEST & FULL WRD TEST # PRIOR TO SCOPE 
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000004 

mm 

12137 

hp 

005037 
076600 
00000 

.10037 001076 
010137 001100 
013700 001102 
"76600 
00000 
~5C 
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15-N0V-78 15:26 PAGE 277 
■ R/W DATA PATTERNS TO REGS 



SEQ 0276 




001104 
001076 



177776 
001102 



001102 001104 

83o 5 o 7 ^ §81186° 



001106 
001102 
001100 



MEDTli 
1$: 



m. 

11$: 
12$: 

13$: 



14$S 

3$: 



SCOPE 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

CLR 

MED 

.WORD 

MOV 

MOV 

MOV 

MED 

• WORD 
CLR 
MED 

• WORD 
MOV 
MOV 
MED 
.WORD 
CMP 
BED 
MOV 
CMP 
BLT 
ERROR 
IMC 
COM 
MOV 




RO/fitSTMPS 
9#$TMP0,R0 



f$TMP2,e#$TMP3 

liil$filI MP1 



5TMP4 
5TMP2 
>TMP1,R1 



CALL THE SCOPE LOOP UTILITY 
KERNEL MODE-PRIORITY 7 
INITIALIZE ADDRESS POINTER 

POT WRITE CODE BY "MRITE-MED'S" 
AND POINT Rl TO READ CODE 
PUT READ CODE BY "READ-MED "S" 
Rl NOW POINTS TO NEXT REG. 
CLEAR ERROR COUNTER 
MED-READ THE INTERNAL REG. 
M ED-READ CODE 

SAVE ITS ORIGINAL CONTENTS 

SAVE ADDR. PTR. VALUE 

LOAD RO WITH DATA TO BE WRITTEN 

M ED-WRITE THE TEST DATA 

M ED-WRITE CODE 

CLEAR RO 

H SP-R|*C THE DATA BACK 
MED-READ CODE 

SAVE DATA READ FOR COMPARISON 
LOAD ORIGINAL DATA IN RO 
MED-WRITE ORG. DATA TO REG. 
M ED-WRITE CODE 

JDID DATA READ=DATA WRITTEN? 
BRANCH IF YES 
SAVE M ED-CODE FOR ERROR 
MAX. ERROR REPORTS YET? 
BRANCH IF YES 

INT. REG. READ BACK WRONG DATA 
INCREMENT ERROR COUNTER 
CHANGE DATA PATTERN 
RESTORE ADDR. POINTER 
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14975 
14976 
14977 
14978 
14979 
14980 
14981 
14982 
14983 
14984 
14985 
14986 



056020 022737 

056026 001327 

056030 005711 

056032 001310 



ism 

056040 



105721 
005711 
001363 




001404 
113737 
000751 



125252 001102 



000754 



056<! 



056054 



056054 



064425 056112 



056114 

81*11? 

001104 
056112 
064431 



000047 
056112 



MACY11 30AU052) 
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CMP 
BNE 
TST 
BNE 
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- r/w data patterns to regs 

#125252, 9#$tmp2 jboth data patterns been used? 
5$ ;branch if no 

(Rl) >END OF ADDR. TABLE? 

1$ ?BRANCH IF NO 



SEQ 0277 



.********»**********»**********»****************************«*** 

"TEST 755 MED TEST - VERIFY NOPS; READ R7 IN A 4 B SP 



THIS TEST CHECKS ALL OF THE "NOP" OPERATION CODES 
TO ENSURE THEY WILL EXECUTE AS NOP 'S AND 
NOT RESULT IN A PROCESSOR HANG. THE "NOPS" 
TABLE (TABLE III) HOLDS THESE CODES. 

THIS TEST ALSO READS THE PROGRAM COUNTER (R7) VALUES 
STORED IN A I B SCRATCH PADS TO SEE THAT THEY 
READ PROPERLY. THE R7 ADDRESSES ARE IN TABLE IV. 



**** 

T755 



****** *************************************** ************** 



DT3: 



$! 



6$: 



MEDT4: 
4$: 



5$: 



6$: 
8$: 



MOV 
SCOPE 
MOV 
MOVB 

MED 

.WORD 

CMPB 

BHIS 

INC 

BR 

TSTB 
TST 

BNE 

MOVB 

CLR 

MED 

. WORD 

CMP 

BEQ 

MOV 

MOV 

MOV 

ERROR 

CMP 

BEQ 

MOVB 

BR 



#754,R0 

#TBL3,R1 
(R1)*J§#10$ 



@#10$,(R1) 




R7B*l/e#5$ 



;;SETUP MISSED TEST & FULL WRD TEST # PRIOR TO SCOPE 
;C ALL THE SCOPE LOOP UTILITY 

?PLAci A HRlT ,l SNOP-cfeiE" T AfTEl 1 MED 

> and point rl to last code in group 
; execute med with nop op-code 

jhave all nops in that group 
;been tested? 
;branch if yes 
;next nop in group 

; point rl to next nop group 
jhave all groups been tested 
;branch if no 

/load r7a read code after med 

;CLEAR RO 

;meo read r7 in the asp 

;read code for rIa 

;did r7a read correctly? 

; branch if yes 

;save m ed-code for error 

;save data expected 

;save data received 

>r7a did not read the right value 

;has r7b been checked? 

;branch if yes 

/load r7b read code after med 
;test r7 bsp 



•<••**•••**•*••* ******* ******************* **••*••••••****• ******* 

;*TEST 756 MED TEST - CSP CONSTANTS CHECK 

;* 

;* THIS TEST CHECKS THE CONSTANT VALUES LOCATED 

;* IN THE C SCRATCH PAD. THE CONSTANTS ARE READ 
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5031 

1813 

im 

1839 

5038 
5039 



MACY11 
T756 



30AU052) 
MEO TEST 
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• CSP CONSTANTS CHECK 



SEQ 0276 



5942 
5043 
5044 
5045 
5046 

§842 

5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
.5066 
15067 
5068 
5069 
5070 
5.071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 



WITH A 

EXPECT S _ ... 
AND THE VAL 



MED INSTRUCTION A! 
D__VAjjg|. r ..THE_APDi 



EXPECTED ARE IN 



D COMPARED TL 
ESSES OF THESE 



THEIR 
CONSTANTS 
TABLE VII. 



056164 

Q56164 gy'gO 000755 



• • ***« 

TST756 



♦A********************************************************* 



056170 



05617 
056176 

056202 

056204 000344 



0766 

H 



056206 170000 




052700 004000 
076600 



Aim mm 

001414 



056230 020021 

056232 001770 

056234 013737 

056242 016137 

056250 104021 
056252 



WW 



001100 

nl( ' 



6 001102 



MEDT10! 
10$: 

1$: 
11$: 



MOV 
SCOPE 

MED 

RDFLAG 

BIS 

MED 

WRFLAG 
CFCC 

MOV 

MOV 

BEQ 

CLR 

MED 

.WORD 

CMP 

BEQ 

MOV 

MOV 

ERROR 



#755, RO 



#BIT11,R0 



R0,(R1>* 

ior 



21 



#$TMP2 



;;SETOP MISSED TEST i FULL HRD TEST # PRIOR TO SCOPE 
/CALL THE SCOPE LOOP UTILITY 



;SET THE "CSP INVALID BIT" IN FLAG REG. 



>EXECUTE FLT. PT INST. SO FLT. PT. 
CONSTANTS ARE LOADED INTO CSP 
>SETUP TABLE POINTER 
JLOAD MED READ CODE AT 1$ 
;BR IF END OF TABLE 

;READ INTERNAL CONTENTS INTO RO 

;WAS THE CONSTANT READ THE ONE EXPECTED 

;BRANCH IF YES 

JSAVE MEDCODE FOR ERROR 

JSAVE CONSTANT VALUE EXPECTED 

;CSP LOCATION HELD WRONG VALUE 



• *************************************************************** 

"TEST 757 MED TEST - MICROBK CHECK OF MICRO-POINTS 

* THIS TEST USES THE MICROBREAK REGISTER AND THE 

* INFORMATION IN TABLE V TO CHECK THAT THE 

* CORRECT MED-FLOW IS ENTERED WHEN EACH 

* REGISTER IS ACCESSED BY A MED INSTRUCTION. 

* THE MICROBREAK REG. IS SETUP TO CAUSE A TRAP TO 

* LOC. 4 WHEN ITS CONTENTS EQUAL THE ADDRESS 

* OF THE MIRCOWORD BEING EXECUTED. 
* 

* NOTE : THE MICRO BREAK - TRAP-TO-4 CAPABILITY 

* IS TRIED AT THE BEGINNING OF THE TEST. 
IF IT DOESN'T WORK, AN ERROR IS PRINTED 




ir it uucjn i «uni\/ mi c 

AND THE TEST IS SKIPPED 
I********************************************************** 

#756,R0 ;;SETUP MISSED TEST & FULL WRD TEST # PRIOR TO SCOPE 

JCALL THE SCOPE LOOP UTILITY 
SWB01/@#UBREAK /LOAD MICROBK. REG. WITH AN MICRO ADDR. 
BKROUT,§#4 ;LOAD ADDR. OF MICROBK. ROUTINE IN 4 

340,fl*6 ;LOAD KERNEL PSW - PRIORITY 7 IN 6 

fBKFLAG /CLEAR MICROBK. TRAP FLAG 

;GET WHAM I INTO RO 
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100000 



MACY11 30A(1052) 
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- MICROBK CHECK OF MICRO-POINTS 



SEQ 0279 




076600 
000021 
04270C 
~~ "600 
- 344 
076600 
000222 



061112 



001076 

121513 001100 



056460 001076 
001100 



001000 



10$: 



11$: 



1$: 



3$: 

2$: 
4$: 



15$: 
12$: 



20$: 
50$: 



13$: 
14$: 



BIS 
MED 

WRWH AMI 

MED 

RDFLAG 

BIS 

MED 

WRFLAG 

SWAB 

TST 

BNE 

CLR 

MOV 

ERROR 

BR 

MOV 
MED 

RDLCUA 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

MOVB 

REQ 

MOV 

CLR 

MED 

RDFLAG 

BIS 

MED 

WRFLAG 

CLR 

MED 

.WORD 

TST 

BNE 

MOV 

MOV 

ERROR 



#BIT9,R0 

#BIT15/R0 
RO 

||BKFLAG 

ei$TMP0 

Sfi601,e#$TMPl 

15 

50$ 

#SWB01*10,R1 
P00007,R0 

#TBL5,R1 
|TBL6 t R2 

pilfer 

#BIT15/R0 

RO 



||JBKFLAG 

f|feilil5K ( 



TSTB <R1)+ 
TST (R2)+ 

BR 2$ 

MED 

RDWH AMI 

BIC #BIT9,R0 
MED 

WRFLAG 
MED 

WRWH AMI 



;SET BIT 9 

jmed-write the whahi reg to 
; enable microbk-trap-to-4 
;get flag register 

;set bit 15 in ro 

;med-write the flag reg to 

; enable microbk trapping 

jmicrobk trap should occur on swab 

;did trap to 4 occur? 

jbranch if yes 

;save expected ubreak addr 
/microbreak trap didn't work 
;skip to end of test 

;get correct u-addr 
;get log cua reg 

jgft rid of irrelevant bits 
;was correct uaddr logged? 
jbr if yes 

;cua contains incorrect u-addr 

;intialize table ptr. (rl) 

;set error loop return to 2$ 

jload write code after med 

;br if end of table 

;lqad microbk reg. with microaddr. 

; clear microbk trap-to-4 flag 

>get flag register 

jset bit 15 in ro 

>med write to flag reg to 

;enable microbk trapping 

;in case u-break trap doesn't occor 

jusually better to write o's 



;DID WE TRAP-TO-4? (FLAG NOT = 0) 
;BRANCH IF YES TO NEXT ENTRY 
;SAVE MED-CODE FOR ERROR 
>SAVE EXPECTED U-ADDR FOR ERROR 
JMICROBK . TRAP-TO-4 DID NOT OCCUR 

INCREMENT TO NEXT TABLE 

/ENTRIES AND 

;CONTINUE 

>GET WHAMI INTO RO 

; CLEAR BIT 9 

/CLEAR THE FLAG REG. TO 

; DISABLE MICROBK. TRAPPING 

JCLEAR THE WHAMI REG. TO 

> DISABLE MICROBK. TRAP-TO-4 
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mn tmn mm mm ivm 
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T757 MED TEST - HICROBK CHECK OF MICRO-POINTS 



SEQ 0280 



MOV 
MOV 
MOV 



fMEDTll 



:RR ;RESET LOOP ON ERROR POINTER 

> RESTORE NORMAL ERROR ROUTINE 
(BREAK ^GENERATE SYNC PULSE ON MED INSTR 



056554 
056554 
056560 
056562 
056570 
056576 
056602 
056604 
056606 
056612 

056616 
056670 
056622 
056624 
056632 
056634 
056636 
056642 

056646 
056650 



056652 
056656 
056660 



056662 
056664 
056666 
056670 
056672 

056674 
056676 
056700 
056702 
056704 
056706 
056712 
056714 



012737 
012737 
012700 
076600 
000222 
012702 
005767 

104023 
000441 
022626 
012737 
076600 
000100 

mm 

001001 
104024 



. . ***»**»*»»**«»***»****»**»***»*************»***»*«»»«*«*«***»»» 

; 4 TEST 760 PHYSICAL ADDRESS & ODD ADDRESS ERROR LOGGING 

J* THIS TEST CHECKS THAT THE PROPER PHYSICAL ADDRESS BITS 

>* <17:00> ARE LOGGED UPON ERROR. THE ERROR IS CAUSED BY 

FORCING AN ODD ADDRESS TRAP. THE ERROR LOG MODE USED 
;* IS "LOG FIRST". ALSO, THE ODD ADDRESS ERROR BITS IN 

:* THE LOG JAM AND CPU ERROR REGISTER ARE CHECKED. 

***»»»*»*»***»*******«*«**»***«»***»******»*»***#»**»»*«****«»* 



012700 000757 
000004 



056622 
000340 
100001 



056563 
177745 



J0004 
30006 



061220 000004 



IK 7 " 



100 



032700 100004 

001001 

104C74 



005005 
076600 
000102 
010003 
020002 

001401 
003205 
076600 
000101 
000300 

042700 177774 

001002 

005705 



4§T760: 



1$: 



2$: 



3$: 



4$: 



5$: 



#757, RO 



[lit 1 '" 2 



SP)t,(SP)+ 
BERR / §#4 



}CPUERR,R1 
?IT6,R1 



MOV 

SCOPE 

MOV 

MOV 

MOV 

MED 

MRWHAMI 

MOV 

TST 

ERROR 

BR 

CMP 

MOV 

MED 

ROLJAM 

MOV 

SIT 

BNE 
ERROR 



BIT 
BNE 

ERROR 



CLR 
MED 

RDLPBA 

MOV 

CMP 



BRQ 5$ 

INC R5 
MED 

RDLSERVICE 

SWAB RO 

BIC #177774,R0 

BNE 11S 

TST P5 



IJBIT15 + BIT2,R0 



R0,R3 
R0/R2 



TEST * PRIOR TO SCOPE 



;;SETUP MISSED TEST & FULL WRD 
/CALL THE SCOPE LOOP UTILITY 
JSETUP PC FOR ODD ADDR SERVICE 

;SETUP "LOG FIRST" MODE 



;SAVE ADDRESS OF ODD ADDR. INSTRUCTION 

;DO ODD ADDRESS INSTRUCTION TO FORCE 

;A JAMUPP & TRAP TO 4 

;*** ODD ADDR. TRAP DID NOT OCCUR 

;EXIT TEST 

;RESTORE STACK 

)RESTORE OLD PC & PSW 



;WAS ODD ADDR. ERROR RECORDED BY 
;ThE CPU ERROR REGISTER? 
/BRANCH IF YES 
;*** CPU ERROR REG. DID NOT 
;REPORT ODD ADDRESS ERROR 
/READ THE LOG JAM REGISTER 
;WAS ODD ADDR. ERROR LOGGED BY LOG JAM 
;BRANCH IF YES 

;*** LOG JAM REG. DID NOT LOG 
;OCD ADDRESS ERROR CORRECTLY 

;CLR ERROR FLAG 

/READ THE LOG PBA REGISTER 

;SAVE RECEIVED PHYS ADDR <15:0> 
/WERE BITS <15:00> OF THE PHYSICAL 
;BUS ADDR. LOGGED CORRECTLY? 
;BFANCH IF YES 
J SET ERROR FLAG 

;READ THE LOG SERVICE REGISTER 

/GET "PBA 17&16" DOWN TO BIT POSITION Oil 

;BR IF PHYS ADDR BITS <17:16> LOGGED CORRECTLY 
JPREVIOUS ERROR? 
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056716 
056720 
056722 



056724 
056726 
056730 



056732 
056732 
05673? 

056740 
056744 
056746 
056754 
056760 

056766 
056774 
057002 
057004 
057006 
057010 
057012 
057014 
057016 
057020 
057024 
057026 
057032 
057034 
057036 
057040 

057042 
057046 
057050 
057052 
057056 
057064 
057070 
057072 
057074 



001402 
005001 
104026 



005000 
076600 
000222 



01 2700 
000004 



572^ 



012701 
0057"- 

oH-Jii 

012737 

012737 
012737 
005000 
Q26600 
000302 
076600 

mm 

000307 
005767 
000406 
012700 
076600 
000352 
022626 
104030 

012700 
9*6600 
000352 
012711 
012737 
005037 
005005 
076600 
000102 



MACYll 
T760 



11$: 



10$: 



30AC1052) 15-NOV-78 15:26 PAGE 282 
PHYSICAL ADDRESS & ODD ADDRESS ERROR LOGGING 



SEQ 0231 



BEQ 
CLR 
ERROR 



CLR 
MSD 

WRWHAMI 



10$ 

Rl 

26 



RO 



;BR IF NOT 

JSET UP EXPECTED PA<17!16> 
>*** PHYSICAL BUS ADDR. <17:00> 
JNCT LOGGED CORRECTLY WHEN 
;ODD ADDRESS TRAP OCCURRED 

;DISABLE "LOG FIRST" MODE 



«**»***»***»*«*«**»***»«»*»*********»**«< 



(***»**»* 



*»***»**» 



;*TEST 761 CHECK DISABLE PARITY ERROR TRAP 

;*THIS TEST CHECKS THAT PARITY ERROR TRAPS TO LOCATION 114 
/ *ARE DISABLED WHEN BITO OF THE CACHE CONTROL REGISTER IS 
*SET (=1). A TRAP TO 114 SHOULD NOT OCCUR AND ERROR 

w — " _ — — ~" - ' ' 



J * INFORMAT ION SHOULD NOT BE LOGGED IN THE LOG PBA. 
;*CACHE DATA, OR LOG TAG DATA REGISTERS. WRONG PAKITY IS 
J *WRITTEN INTO A TEST LOCATION TO CAUSE THE PARITY ERROR 
;*NEEDED IN THIS TEST. 
••***»*»»****•*****»*«** A*************************** •*•****••**•* 

TST761: 

#760, RO ;;SETUP MISSED TEST 4 FULL WRD TEST # PRIOR TO SCOPE 

;CALL THE SCOPE LOOP UTILITY 



177746 

177746 

000114 
000116 



005022 
000200 



C00200 



125252 
000116 
000116 



1$! 



2$; 



000114 



MOV 
SCOPE 

MOV 
TST 
MOV 
MOV 
MOV 

MOV 
MOV 
CLR 
MED 

WRLPBA 
MED 

WRLDATA 

MED 

WRLTAG 
TST 

BR 

MOV 

MED 

352 

CMP 

ERROR 

MOV 
MED 
352 
MOV 
MOV 
CLR 
CLR 
MED 

RDLPBA 



jfTLOCl/Rl 
#DPTRP,§#CCR 



|L0C1 
#loO,RO 



SP)+,(SP)+ 



#200, RO 



#125252.(R1) 

#U6,0#114 

g£U6 



JGET POINTER TO TEST LOCATION 

;MAKE IT A HIT 

;SET WRITE WRONG PARITY BIT 

JWRITE TO TEST LOC. WITH WRONG PARITY 

/DISABLE PARITY ERROR TRAPS 

;AND CLEAR WWP 

;SETUP PARITY ERROR VECTOR 

/CLEAR LOG PEA REGISTER 

/CLEAR LOG CACHE DATA REGISTER 

/CLEAR LOG CACHE TAG REGISTER 

/READ TEST LOCO TO FORCE PARITY ERROR 
;BRANCH IF NO TRAP OCCURS 

;CLEAH UP THE CACHE 
INITIALIZATION CODE 
>CLEAN UP STACK 

;*** PARITY TRAP TO 114 OCCURRED 
; WHEN IT SHOULD HAVE BEEN DISABLED 

/CLEAN UP THE CACHE 

/ INITIALIZATION CODE 

;WRITE BAK GOOD PARITY IN TST LOC 

; RESTORE ORIGINAL PARITY HANDLER & PSW 

/CLEAR ERROR FLAG 
;READ LOG PBA REGISTER 
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T761 CHECK DISABLE PARITY ERROR TRAP 



SEQ 0282 



15257 

\im 

15260 

nm 

15263 
15264 
15265 
15266 
15267 
15268 
15269 
15270 



15271 

\l VA 

15274 



15301 
15302 
15303 
15304 
15305 
15306 
15307 
15308 
15309 
15310 



057076 
057100 

wm 

057106 
057110 

057112 
057114 
057116 
057120 
057122 

057124 
057126 
057130 
057132 
057134 



5714? 




057224 
057226 
057230 
05723? 
057236 
057240 
05724? 
057744 



05725? 
057?54 



010003 
001401 



001401 
005205 
005705 
001401 
104027 



mm 

012701 
005711 
012737 
012711 
042737 
012737 
012737 
005737 
012700 
076600 
000352 
104031 
000405 
012700 
076600 
000352 
022676 
022737 



001403 
013700 



MOV 



R0/R3 



057136 005037 177746 



3$: 



4$: 



5$: 



6$: 



BEQ 3S 
INC R5 
MED 

RDLDATA 

MOV R0,R1 



BEQ 4$ 

IMC R5 
MED 

RDLTAG 

MOV R0/R2 

BSQ 5S 

INC R5 

TST R5 

BEQ 65 

ERROR 27 



(SffCCR 



3g pba reg. still clear? 
jbranch if yes 
otherwise set error flag 
;read log cache data reg. 

;save copy 

;log cache data reg. still clear? 
;branch if yes 
/otherwise set error flag 
;read log cache tag reg. 

;save copy 

;l0g cache tag reg. still clear? 
;branch if yes 
otherwise set error flag 
;were any of log registers changed 
;branch if no 

;*** one of log registers changed 
;when error should not have been logged 
>log pba, log data & log tag 
/register should be clear, 
/enable parity error traps 



000761 

064046 

000100 
125252 
000100 
057232 
000340 
064046 
000200 



177746 

177746 
000114 
000116 



..*************************************************************** 

;*TEST 762 CHECK PARITY ERROR BITS IN MEMERR REG. IN BACKUP MODE OF CACHE (TRAP) 

;*THIS TEST CHECKS THAT ALL OF THE PARITY ERROR BITS (5,6,7) 
;*OF THE MEMORY ERROR REGISTER ARE SET TO "1" WHEN A CACHE 
;*PAPITY ERROR OCCURS IN THE BACKUP MODE. 
• • *************************************************************** 

TST762: 

~" ;;SETUP MISSED TEST i, FULL WRD TEST # PRIOR TO SCOPE 

JCALL THE SCOPE LOOP UTILITY 
;GET POINTER TO TEST LOCATION 
/MAKE IT A HIT 
;SET WRITE WRONG PARITY BIT 
;WRITE TO TEST LOC. WITH WRONG PARITY 
>CLEAR WWP 

;SETUP NEW TEST HANDLER AT PARITY VECTOR 



000200 

000340 177744 
177744 



1$: 



MOV 
SCOPE 
MOV 
TST 
MOV 
MOV 
RIC 
MOV 
MOV 
TST 
MOV 
MED 
352 
ERROR 
BR 
MOV 
MED 
352 
CMP 
CMP 



BEQ 
MOV 



K761/R0 

IfTLOCl/Rl 
(Rl) 

tWWP,g#CCR 
12525?,(R1) 

340,fl»116 
JTLDC1 
JOO/PO 



31 
2$ 

#200, RO 



NOT CAUSE TRAP 



;READ TEST LOC. TO FORCE PARITY ERROR 

/CLEAN UP THE CACHE 
INITIALIZATION CODE 
}*** PARITY ERROR DID 
;BRANCH TO 2$ 

/CLEAN UP THE CACHE 
;INITIALI2',ATIl)N CODE 
(SP)+,(SP)+ JCLEAN UP STACK 

#000340, @#MEMERR 5WERE PARITY ERROR . B ITS (5,6,7) SET 
;AND CPU ABORT BIT (15) LEFT CLEAR 
;IN MEMORY ERROR REGISTER? 

3? >BRANCH IF YES 

@#MEMERR,R0 
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T762 CHECK PARITY ERROR BITS IN MEMERR REG. IN BACKUP MODE OF CACHE (TRAP) 



SEQ 0283 



15311 
15312 
15313 
15314 
15315 
15316 
15317 
15318 
15319 
15320 
15321 
15322 
15323 
15324 
15325 
15326 
15327 

\m% 

15330 



15333 
15334 
15335 
15336 
15337 

15341 
15342 
15343 
15344 
15345 
15346 
15347 
15343 
15349 
15350 
15351 
15352 
15353 
15354 
15355 
15356 
15357 
15358 
15359 
15360 
15361 
15362 

win 

15365 
15366 



057760 104032 



057262 
057770 



057350 
"17352 



oi^6o 

057362 



057364 
057366 
057370 
057374 
057376 
057402 



012737 
005037 




022700 
001401 
104033 



076600 
000102 
020027 
001403 
012701 
104020 




32 



000116 000114 
000116 



3$: 



MOV 

CLR 



;*** MEMORY ERROR REGISTER BITS 

/WERE SET INCORRECTLY 

/RESTORE OLD PARITY HANDLER PC & PSW 



..*************************************************************** 

;*TEST 763 CHECK UNIBUS TIMEOUT, ODD ADDRESS AND LOG CONTINUOUS MODE 

;*THIS TEST CHECKS THAT THE "UNIBUS TIMEOUT" BIT (BIT4) 
;*GETS SET IN THE CPU ERROR REGISTER WHEN A TIMEOUT OCCURS. 
;*A TIMEOUT TRAP IS FORCED BY REFERENCING BUS ADDRESS 760000. 
;*THEN AN ODD ADDRESS ERROR IS FORCED AND IT 
;*IS CHECKED IF ONLY BIT (6)-ODD ADDRESS ERROR IS SET 
;*(IN CPUEPR). THIS CHECKS THAT THE ERROR LOG IS 
;*CONTINUOSLY UPDATED IN THE "LOC CONTINUOUS" MODE. 



000762 

057324 000004 
000340 000006 
160000 



061220 000004 



• • ***** 

TST763: 



1$: 



( tuiu lliuu^ui uruMlEiW in inn. i^uu \< u ri -t & n w u v w nw^u. 
******************************************************** 



L77766 
300020 



020200 



160000 
160000 



057426 000004 
000340 000006 
177741 



061220 000004 



2$! 



3$! 



5$: 
4$: 



MOV 

SCOPE 

MOV 

MOV 

TST 

BR 
CMP 
MOV 
MED 

RDLJAM 

MOV 

CMP 

BEQ 
ERROR 



CMP 
BEQ 
ERROR 



MED 

RDLPBA 

CMP 

BEQ 

MOV 

ERROR 



MOV 

MOV 

TST 

BR 

CMP 

MOV 

MED 




;p)+,(sp)+ 

?BERR,(a#4 



»CPUERR,R1 
UT4,R1 



|RIT13+BIT7,R0 

33* 



RO, #160000 
|f 60000,R1 




(SP)+,(SP)+ 
#BERR,§#4 



;;SETUP MISSED TEST & FULL WRD TEST # PRIOR TO SCOPE 

JCALL THE SCOPE LOOP UTILITY 

;SETUP NEW PC 4 PSW FOR THE 

JTIMEOUT SERVICE ROUTINE 

JFGRCE A TIMEOUT TRAP TO 4 BY 

/REFERENCING NON-EXISTENT ADDRESS 

>RESTORE STACK 

; RESTORE OLD PC & PSW FOR TIMEOUT 
'SAVE CPU ERR REG 

;DID "UNIBUS TIMEOUT" BIT IN CPU ERROR 
;REGISTER GET SET? 
;BRANCH IF YES 

.*** «UNIBUS TIMEOUT" BIT (BIT4) IN CPU 

>ERROR REG. DID NOT SET WHEN A 

/TIMEOUT MAS FORCED 

JREAD THE LOG JAM REGISTER 

;DID "UNIBUS TIMEOUT" BIT (BIT7) SET? 

;BRANCH IF YES 

i**» "UNIBUS TIMEOUT" BIT (BIT7) 
;DID NOT SET IN LOG JAM REGISTER 
;WHEN UNI3US TIMEOUT WAS FORCED 
JREAD LOG PBA 

;WAS PHYS B A LOGGED CORRECTLY? 



jphysical bus address was 
;logged wrong on a unibus 

;TIMEUUT 

>SET UP PC, PSW FOR ODD ADDRESS 
JFORCE ODD ADDRESS ERROR 
;REST0R5 STACK 
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T763 CHECK UNIBUS TIMEOUT, ODD ADDRESS AND LOG CONTINUOUS MODE 



SEQ 0284 



urn 



057440 
057442 
057446 
057452 
057454 



057456 
057462 
057464 



057476 
057500 



057502 



mm 

022701 



032700 
001001 
104024 



6600 




177766 
000100 



000004 



000004 



7$: 



6$: 



8$! 



RDLJAM 

MOV 

CMP 

BEQ 
ERROR 



BIT 



fCPUERR,Rl 
IT6,R1 , 



BIT2,R0 



BNE l| 
ERROR 24 



RDLFGINT 
CMPB R0,#4 
BEQ 8$ 
ERROR 36 



;ODD ADDR. BDT SET 3 

;ODD ADDRESS BIT WAS 
;NOT SET IN THE CPU 
;ERROR REGISTER. IN LOG 
CONTINUOUS MADE TflE 
;LATEST ERROR SHOULD 
;BE LOGGED 

;ODD ADR. BIT SET IN 
;LOG JAM? 

;ODD ADDRESS BIT HAS 

JNOT SET IN THE LOG 

;JAM REGISTER ON A 

;ODD ADDRESS ERROR 

;CHECK IF LAST INTERRUPT VECTOR 

;WAS LOGGED? 



;LAST ERROR VECTOPR WS NOT LOGGED 



057502 
057502 
057506 
057510 
057516 
057524 
057530 
057534 

057536 
057540 
057542 
057550 
057552 
057554 
057560 

057564 
057566 



012700 
000004 
012737 

mm 

012707 
104034 

000420 
022626 

mm 

000100 
013701 
032701 

001001 
104035 



000763 
057540 

177746 



• . ****** ************ **** ********** ************************ ******* 

>*TEST 764 CHECK ILLEGAL INTERNAL ADDRESS TRAP 

;*THIS TEST CHECKS THAT A TRAP OCCURS UPON REFERENCING AN 
;*ILLEGAL INTERNAL ADDRESS AND THAT "ILLEGAL INTERNAL ADDRESS" 
J*BIT (BITO) OF THE CPU ERROR REGISTER AND BIT5 OF LOG JAM 
;*REGISTER GET SET. IT ALSO CHECKS IF THE INTERRUPT VECTOR 



061220 000004 



177766 
000001 



. . ***** 

TST764: 



IS: 



*(4) IS SAVED AS THE "LAST INTERRUPT VECTOR" IN THE LOG 
*fLAG/ INTERRUPT REG. 



*••* 



a***************************************************** 



MOV 

SCOPE 

MOV 

MOV 

CLR 

MOV 

ERROR 

BR 
CMP 
MOV 
MED 

RDLJAM 

MOV 

BIT 

BNE 
ERROR 



#763, RO 

#340, P#6 
8#CCR 
#CCR,PC 
34 



(SP)+,(SP)+ 
#BERR,9#4 



a#CPUERR,Rl 
|BIT0,R1 



;;SETUP MISSED TEST & FULL WRD TEST # PRIOR TO SCOPE 
;CALL THE SCOPE LOOP UTILITY 
; SETUP NEW HANDLER PC & PSW 

; ILLEGAL INTERNAL ADDRESS TRAP SHOULD OCCUR 
;*** ILLEGAL INTERNAL ADDRESS 
;DID NOT RESULT IN A TRAP 
;BRANCH TO EXIT IF NO TRAP 
; RESTORE STACK 

;RESTORE OLD HANDLER PC & PSW 



;did "illegal internal address" bit (0) 
;in cpu error register get set? 
;branch if yes 

;*** illegal internal address 
;bit did not set in cpu error reg. 
jread the log jam reg. 
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J5423 
5424 
5425 

tt& 

5428 

5430 



057570 032700 000040 



057574 001001 
057576 104035 



057600 



012700 
000004 



2737 
. . 5037 

mm 

052737 
012711 




5476 05774 
5477 

5478 057750 001401 



1252., 
000100 
100001 



000200 




001062 
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T764 CHECK ILLEGAL INTERNAL ADDRESS TRAP 



SEQ 0285 



2$: 



3$: 



BNE 
ERROR 



#BIT5,R0 

3$ 
35 



>DID " ILLEGAL INTERNAL ADDRESS" BIT (5) 
JIN LOG JAM REG. GET SET 
> BRANCH IF YES 

>*** ILLEGAL INTERNAL ADDRESS BIT 
;DID NOT SET IN LOG JAM REG. 



*************************************************************** 



$*TEST 



765 CHECK LOG SERVICE & MEMERR LOGS LO-HI BYTE & TAG, IN CACHE ABORT MODE 

;TEST CHECKS THAT "LO BYTE PARITY" "HI BYTE PARITY" AND "TAG PARITY" 
JBITS CAN SET IN "LOG SERVICE" REGISTERS. IT IS ALSO 
;CHECKED THAT THE PROPER TAG AND DATA BITS GET STORED 
;IN THE "LOG CACHE DATA, "LOG CACHE TAG/CPU" AND THE 
; "MEMORY ADDRESS REGISTER" WHEN A PARITY ERROR IS 
; FORCED. 

>IT IS CHECKED IF THE INSTRUCTION WAS ABORTED AND THE 
>LOG FLAG/ INTERRUPT REGISTER LOGGED THE LAST INTERRUPT 
;VECTOR. 

*********************************************************** 



000764 



000201 177746 

001062 

064046 

000^ 177746 



#764,R0 



177746 



000001 172746 

057712 000114 

004150 001062 
000200 




;;SETUP MISSED TEST & FULL WRD 
/CALL THE SCOPE LOOP UTILITY 



TEST # PRIOR TO SCOPE 



PTRPl: 



nun 



MOV 

S§S 

MOV 
MOV 
CLR 
CMP 
TST 

BEQ 



#200, RO 



»DPTRP,9#CCR 
|ll6,e#I14 



ABORT,»#CCR ;DISABLE PARITY TRAPS (CACHE) 



>GET POINTER TO TEST LOC. 

JMAKE IT A HIT 

;WRITE WRONG PARITY SET 

; WRITE TEST LOCATION WITH WRONG PARITY 

KLEAR WWP 

JENABLE "LOG FIRST" MODE, AND 

; ERROR LOGGING 

>ENABLE CACHE PARITY TRAPS 

;NEW PARITY TRAP SERVICE 

>READ TEST LOC, FORCE PARITY ERROR 

>CLEAN UP THE CACHE 

INITIALIZATION CODE 

>*** CACHE PARITY ERROR TRAP 

;DID NOT OCCUR WHEN 

;TEST LOC WITH BAD PARITY 

;HAS READ 

J ENTER HERE IF PARITY TRAP OCCURRED 

JCLEAN UP THE CACHE 
^INITIALIZATION CODE 
;DISABLE CACHE PARITY ERROR TRAPS 
REESTABLISH OLD SERVICE VECTORS 



;WAS THE INSTRUCTION ABORTED ON 
;CACHE PARITY ERROR (ABORT MODE)? 
;YES 
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T765 CHECK LOG SERVICE i MEMERR LOGS LO-HI BYTE i TAG/ IN CACHE ABORT NODE 



SEQ 0286 



5479 
5480 
5481 
5482 
5483 
5484 

5486 

lilt 

Iffl 

5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 

IIU 

5519 
5520 
5521 
5522 
5523 
5524 
5525 

§35* 

5528 
5529 
5530 
5531 
5532 
5533 
5534 



057752 104041 



0577^6 
g|7260 

0? 



mi 

057772 
057774 



057776 
060002 



060006 
060010 



060012 
060014 
060016 



060022 
060024 
060030 



060032 
060034 
060036 
060040 
060044 
060046 
060050 
060052 
060054 
060060 
060062 
060064 



060066 
060070 
060072 
060076 
060100 
060104 



076600 
000101 
010004 

mm 

001401 
104042 



013700 
022700 



001401 
104043 



076600 
000102 
020027 



001403 
012701 
104020 



076600 
000107 
000300 

mm 

106201 
106201 
106201 
052701 
120100 
001401 
104017 



076600 
000106 
020027 
001403 
012701 
104016 



IS: 



mm 



177744 
100340 



064046 
064046 



064046 



000200 



125252 
125252 



2$: 



3$: 



4$: 



55! 



ERROR 41 



[TY 



MED 

RDLSERV 

MOV 

BIC 

CMP 

BEQ 

ERROR 



MOV 
CMP 



BEQ 
ERROR 



MED 

R0LPB A 
CMP 



BEQ 
MOV 
ERROR 



irw/Ki ;MASK ALL BUT LO.HI/TAG BITS 
;LO/HI /TAG, CACHE PARITY BITS SET? IN 



AND "TAG" 



MED 

RDLDATA 

CMP 

BEQ 

MOV 

ERROR 



INSTRUCTION HAVING CACHE PARI 
} ERROR WAS NOT ABORTED/ IN THE 
JCACHE ABORT MODE. 
;READ THE "LOG SERVICE" REGISTER 

ICE 

R0/R4 ;COPY 
#*C<LO+HI+TAG*BITJ>,R4 
#342, R4 ;LO|HI 

« "LO BYTE" PARITY ERROR 

> AND "TAG" PARITY ERROR BITS 
>HERE NOT LOGGED CORRECTLY IN "LOG 
JSERVICE" REGISTER/ WHEN PARITY 
; ERROR TRAP HAS FORCED. 
>CLEAR BITS ARE ACTIVE. 

fl#MEMERR,RO J GET MEM ERR REG 

#HI*LO*TiG+BIT15;RQ 1DID"LQ BYTE" "HI BYTE" 
;PARITY ERROR BITS SET IN 
>THE MEMORY ERROR REGISTER? 

3$ >YES 

43 >*** "LO BYTE" "HI BYTE" AND "TAG" PARITY 

; ERROR BITS DID NOT SET 
KORRECTLY IN THE MEMORY 
;ERROR REGISTER 
>READ "LOG PBA" REGISTER 

R0/#TLOC1 JDID "LOG PBA" CONTAIN CORRECT 

;PHYSICAL BUS ADDRESS-WHERE 
;THE PARITY ERROR OCCURRED? 

4S ;yes 

#TL0C1,R1 ;EXPECTED PBA 

20 >*** PHYSICAL BUS ADDRESS 

;{WHERE PARITY ERROR OCCURRED) 

;WAS NOT LOGGED CORRECTLY 

; WHEN CACHE PARITY ERROR HAS FORCED 

; READ "LOG CACHE TAG" REGISTER 

JSHIFT RIGHT (3 TIMES) THE 16 BIT 

PHYSICAL BUS ADDRESS OF THE 
;TEST LOCATION 

; FUDGE TAGE BIT 
;WAS THE CORRECT TAG LOGGED? 
; YES 

;TAG BITS WERE NOT LOGGED 
JCORRECTLY, WHEN CACHE 
JPARITY ERROR WAS FORCED 
;READ CACHE DATA 

JCACHE DATA LOGGED CORRECTLY? 

J EXPECTED DATA 



SERVICE" 




RO, #125252 

#f25252/Rl 
16 
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5535 
5536 
5537 
,5538 
.5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 
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5549 
5550 

l5b3 
5554 



5557 
5558 
5559 
5560 
5561 

im 

5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 

p 

5579 
5580 
5581 



5584 

"PI 
5587 

5588 

5589 

5590 



060160 



060222 
060230 
060234 

060236 
060240 
060246 
060250 



012700 
076600 
000222 

Ol^H 

nm 
12002 

001403 

mm 



000001 



001062 



12700 000765 
50004 



060220 022626 



522626 
512737 
576600 
500100 
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CHECK LOG SERVICE & MEMERR LOGS LO-HI BYTE & TAG, IN CACHE ABORT MODE 



T765 
6$: 



SEQ 0287 



000004 



061220 000004 



7$: 



MOV 
MED 

WRWHAMI 

MOV 

TST 

CMP 

MOV 

MED 

RDLFGINT 
CMPB 
BEQ 
MOV 
ERROR 



#BIT0,R0 



t7 t!i88oo 



|p)+,(SP)+ 
BERR,@#4 



R0,#114 

I|,e#SREG0 
36 



>SET UP LOG CONTINUOUS 



;SETUP CPU VECTOR 

;FORCE TIMEOUT & TRAP TO 7$ 

;RESTORE CPU VECTOR 

>READ LOG FLAG/INTERRUPT REGISTER 

>DID LO BYTE CONTAIN VECTOR 114? 

JL AST INTERRUPT VECTOR WAS NOT 
>L0GGED CORRECTLY IN FLAG REGISTER 

;when a cache parity error was 
;forced. 




8$: 

..»***********»********************************************»****» 

j West 766 check "log first" mode of error logging 

>*THIS TEST CHECKS THE "LOG FIRST" MODE OF ERROR LUGGING. 
J*THE "LOG FIRST" MODE IS ENABLED. THEN A TIME-OUT TRAP 
;*IS FORCED, BIT 4 OF CPU ERROR REGISTER SHOULD BE SET. 
;*THEN AN ODD ADDRESS TRAP IS FORCED. HOWEVER, THIS 
;*TIME THE ERROR SHOULD NOT BE LOGGED; BIT 6 (ODD 
;*ADDRESS) SHOULD NOT BE SET BECAUSE THE ERROR LOG 
>*IS LOCKED UP AFTER THE FIRST ERROR. 

;*THEN, THE ERROR LOG IS ENABLED (BY SETTING BIT OF 
;*WHAMI). AN ODD ADDRESS ERROR IS FORCED AGAIN AND IT IS 
;*CHECKED THAT THIS TIME THE ERROR IS LOGGED, (BIT 6-ODD 
J*ADDRESS SHOULD BE SET IN CPU ERROR REGISTER), 
• .***»*» W** it******************************************* ********* 

TST766: 

;>SETUP MISSED TEST & FULL WRD TEST # PRIOR TO SCOPE 

7 CALL THE SCOPE LOOP UTILITY 



MOV 

SCOPE 



012737 060236 000004 
005767 177765 
000453 



061220 000004 



IS: 



2$: 



MOV 
MED 

WRWHAMI 
MOV 
MOV 
TST 

BR 

CMP 



MOV 
TST 

BR 

CMP 
MOV 
MED 

RDLJAM 



#765, RO 
#BIU5*BIT0,R0 




(SP)+,(SP)+ 
#BERR>&#4 



;SET UP "LOG FIRST MODE 

;SET UP NEW PC & PSW FOR 
;TIMEOUT 

;FORCE A TIMEOUT 

;SKIP TEST IF NO TIMEOUT 

;RESTORE STACK 

;BIT 4 OF CPU ERROR REGISTER 

; SHOULD HAVE SET 

>SET UP NEW PC FOR ODD ADDRESS 

;FORCE ODD ADDRESS TRAP 

;SKIP TEST IF NO ODD ADDRESS TRAP 

;RESTORE STACK 
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15603 
15604 



060: 
060: 



06C 
06C 



262 
264 



060266 
060270 
060274 



060304 
060306 
060310 
060316 
060324 
060330 
060332 

060334 
060342 



060352 
060354 
060356 
060362 



060364 
060372 
060376 
060400 



060402 
060402 
060406 



013701 
022701 

001402 
104033 



00043 6 
032700 
001401 



076600 
000222 
012737 
012737 
005767 
000415 
022626 

012737 
022737 



060350 001405 



076600 
000100 
013701 
104040 



012737 
012700 
076600 
000222 



012700 
000004 



177766 
000020 



100004 



060276 104037 



060300 012700 100001 



060332 000004 
000340 000006 
177741 



061220 000004 
000100 177766 



3$! 



6$: 



4$: 



177766 



061220 000004 
000001 



000766 



5$: 



SEQ 0288 



MOV 
CMP 



BEQ 
ERROR 



BR 
BIT 

BEQ 



ERROR 



)IT4,R1 



||CPUERR/R1 

n 



gBIT2+BIT15,R0 
37 

#BIT15*BIT0,R0 



MOV 

MED 

WRWHAMI 
MOV 
MOV 

TST 3$*1 
BR 5$ 
CMP (SP)*,(SP)+ 

MOV #BERR,»#4 

CMP |BIT6,PCPUERR 



#6 



BEQ 



5$ 



MED 

RDLJAH 

MOV »#CPUERR,R1 
ERROR 40 



MOV 

MOV 
MED 

WRWHAMI 



>"TIMEOUT 

;set, — " 



. _ BIT SHOULD BE STILL 
CHECK? 

*•* SECOND ERROR (ODD ADDRESS) 
UPDATED THE ERROR LOG IN 
THE LOG FIRST MODE. BIT 4 
(UNIBUS TIMEOUT) SHOULD BE 
STILL SET FROM THE FIRST 
ERROR 

SKIP THE REST 

CHECK THAT ODD ADRES ERROR BITS NOT 
SET IN LOG JAM. NOTE LOG FIRST 
MODE SHOULD INHIBIT FURTHER 
ERROR LOGGING 

ODD ADRESS ERROR BITS GOT SET IN LOG JAM 
THEY SHOULD NOT BE SINCE LOG FIRST MODE 
INHIBITS ERROR LOGGING AFTER THE FIRST ERROR 
ENABLE ERROR LOG AGAIN IN 
LOG FIRST MODE 



;SET UP NEW PC & PSW FOR 
;ODD ADDRESS ERROR 
JFORCE UDD ADDRESS TRAP 
;SKIP IF NO TRAP 
;RESTORE STACK 
;RESTORE OLD PC<4), PSW<6) 

JTHE ERROR LOG FROM PREVIOUS 
; ERROR SHOULD BE OVER WRITTEN. 
;ODD ADDRESS BIT SHOULD 
JBE SET, BECAUSE- THE ERROR 



/DC OI.li B CI, 

;L0G WAS ENABLED. 
;OK, IF YES 



;THE ERROR LOG WAS NOT UPDATED 
;(UPON AN ODD ADDRESS ERROR) 
J AFTER THE LOG HAS ENABLED. 
> AT THIS FORMAT BIT 6 OF 
;CPU ERROR REGISTER SHOULD 
;BE SET. IT WAS NOT. 
;RESTORE OLD PC(4), PSW(6) 

;PUT THE LOGGING BACK INTO 
;"CONTINUOUS" MODE 



. . ******************************** ******************************* 

;*TEST 767 CHECK LAST INTRRUPT VECTOR IS LOGGED IN FLAG REG. 

••*************************************************************** 

TST767: 

MOV #766, RO ?;S£TUP MISSED TEST & FULL WRD TEST # PRIOR TO SCOPE 

SCOPE ;CALL THE SCOPE LOOP UTILITY 
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060466 
060474 
060476 
060500 
060506 
060514 
060520 
060522 
060530 

818111 

060540 
060542 



mm 

022626 
012737 

mm 

022626 
012737 
076600 

Im 

001401 
104036 



060420 000030 



061620 000030 

060442 000004 
160000 

061220 000004 



000030 



060476 000020 

061260 000020 

060520 000004 
160000 

061220 000004 
000020 



060544 012700 000767 




001126 
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T767 CHECK LAST INTRRUPT VECTOR IS LOGGED IN FLAG REG. 



SEQ 0289 



#1$,8#30 



1$: 
2$: 



3$! 
4$: 



5$: 



MOV 
EMT 
CMP 
MOV 
MOV 
TST 
CMP 
MOV 
MED 
RDLFGINT 
CMPB HO, #30 
BEQ 3S 
ERROR 36 



SP)«v(SP)+ 
|ERROR, g#30 

ff^oifoo 

SP)+,(SP)+ 
BERR,§#4 



MOV 
IOT 
CMP 

MOV # 

MOV f 

TST 3 

CMP \ 

MOV # 
MED 

RDLFGINT 

CMPB R 

BEQ 6 

ERROR 3 



#4$,8#20 

(SP)+,{SP)+ 
IISCOPE/g^O 

{SP)+,(SP)+ 
#BERR,@#4 

r#20 



6$: MOV 
• ENABLE AMA 



#$TN-1,R0 



;LOAD EMT VECTOR WITH 1$ 
;FIRST INTERRUPT — EMT 
>CLEAN UP STACK 
> RESTORE VECTOR 
;SET UP CPU VECTOR 
;FORCE TIMEOUT 
;CLEAN UP STACK 
;RESTORE BUS ERROR VECTOR 
;CHECK FLAG 

;EMT VECTOR LAST LOGGED? 
;br IF YES 

;LOG FLAG/INT REG DID NOT LOG VECTOR 
)LO BYTE OF LOG FLAG/INT REG S/B=30 

;LOAD IOT VECTOR WITH 4S 

;SECOND INTERRUPT- SHOULD LOAD LOG FLAG REG 

KLEANUP STACK 

^RESTORE IOT VECTOR 

;SET UP CPU VECTOR 

>FORCE TIMEOUT 

;CLEAN UP STACK 

;RESTORE BUS ERROR VECTOR 

JCHECK FLAG 

>IOT VECTOR LAST LOGGED? 
;BR IF YES 

;LOG FLAG/INT REG DID NOT LOG VECTOR 
>LON BYTE S/B = 20 

;SET UP FOR MISSED TEST CHECK AND 
;FULL WORD TEST NUMBER FOR APT 



. SBTTL END OF PASS ROUTINE 



>*IF TflERES A MONITOR GO TO ft 
;*IF THERE ISN'T JUMP TO INIT 

$EOP: 



*************************************************************** 

INCREMENT THE_PASS_ NUMBER ||PASS) 



SCOPE 
CLR 
INC 
BIC 
DEC 

$EOPCT: .WORD 
BGT 
MOV 

$EN0CT: .WORD 
SEOPCT 
TYPE 
MOV 



5TIMES 
>PASS 



Siooooo,$pass 

IPC)* 



SDOAGN 

CPC)*,8(PC)+ 



<E0P1 

$PASS,-(SP) 



;;zero the number of iterations 

;;increment the pass number 

;;don'T allow a neg. number 
>;LOOP? 

;;yes 

;;restore counter 



>type "end pass #" 
;save $pass for typout 
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END OF PASS ROUTINE 



SEQ 0290 




15713 
15714 

1521 5 
15716 
15717 
15718 
15719 



104402 
104401 
013746 
104402 

mm 

001405 
000005 
004710 
000240 
000240 
000240 

000137 
003262 
377 
060664 



065121 
001012 

mm 



000 





TYPOC 




TYPE 




MOV 




TYPOC 




TYPE 


JGET42 : 


MOV 


BEQ 




RESET 


$ENOAD: 


JSR 


NOP 




NOP 




NOP 


$DOAGN: 


JMP 


SRTNAO: 


• WORD 


$ENULL: 


.BYTE 




• EVEN 



• EOP2 

§ERTTL,-(SP) 

IfiOAGN 
PC/(R0) 



J(PC)* 

INIT 

-1,-1,0 



;type pass number in octal 
>t*pe "error count =" 
>save error total for typout 
jtype error total 

> /get monitor address 

;;bpanch if no monitor 

>; clear the world 

;;go to monitor 

jjsave room 

;>for 

>;ACTli 

; JRETURN 

;;NULL CHARACTER STRING 
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000024 
000026 



120120 
061042 

060736 000024 
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END OF PASS ROUTINE 

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
•SBTTL I I I I I I UTILITIES I I I I I I 

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

.SBTTL POWER DOWN AND UP ROUTINES 

..************ ****** *********** ****** *********** ***************** 

SLOWER DOWN ROUTINE 



SEQ 0291 



>runc.K 
SPWRDN 



#$ILLUP,Q#PWRVEC >;SET f 
P40,a#P»RVEC+2 >;PRIO:' 
R0,-<SP) ;;PUSH i 



SET FOR FAST UP 
:7 

RO ON STACK 
;;PUSH Rl ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
?;PUSH R4 ON STACK 
;;PUSH R5 ON STACK 
>;POSH flSWR ON STACK 
;>SAVE SP 
9#PWRVEC >>SET UP VECTOR 

; J HANG UP 

*************************************************** 



000024 



ILLUPgj»#PWRVEC 



000024 
000026 



047520 042527 




001630 



PWRUP! 



MOV 
CLR 
JMP 



<15><12> ,, P0WER M 



|STACK,SP 



1ST ART 



;;SET FOR FAST DOWN 
J GET SP 

JWAIT LOOP FOR THE TTY 
;WAIT FOR THE INC 
OF WORD 

ET OLD SWR VALUE 
WRITE BACK ORIGINAL SWR VALUE 
INTO HARDWARE SWITCH REGISTER 
JPOP STACK INTO gSWR 
;POP STACK INTO R5 
>POP STACK INTO R4 
>POP STACK INTO R3 
>POP STACK INTO R2 
;POP STACK INTO Rl 
;POP STACK INTO RO 
JSET UP THE POWER DOWN VECTOR 
PRIO:7 

EPORT THE POWER FAILURE 
J POWER FAIL MESSAGE POINTER 
> REST ART AT PWRUP 
;REST ART ADDRESS 

JjTHE POWER UP SEQUENCE WAS STARTED 
>> BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 



>RESET SP 

JPRIORITY — CLEAR CODES 
JRESTART PROGRAM 
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5781 06107 

mi nm 



070 
4 

2 



062716 
8o^06 



000002 
000020 



000002 



061104 005237 061112 



061110 
061112 



000002 
000000 
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15:26 PACE 293 



SEQ 0292 



•A***************************************************************** 

•SBTTL "T" BIT SERVICE ROUTINE 
** ********* ***** ********** ****•**••****•••*•**•• ************** ******* 



TBSER: 



BIC 
RTT 



mm 



p) 



E RETURN PC AROUND ERROR CALL 
— h T ii piT 

LING 



;torn off the 
JRETURN to th 



E CALLING TEST 



SBTTL MICROBREAK TRAP SERVICE ROUTINE 
*************************************************************** 

THIS ROUTINE MERELY SETS A FLAG 
WHEN THE ROUTINE HAS BEEN ENTERED 



6KR0UT: INC 



BKFLAG 



RTI 
.WORD 



;SET MICROBREAK FLAG TO 
VINDICATE TRAP TO 4 OCCURRED 
;RETURN FROM TRAP 
;MICROBREAK TRAP FLAG 



■ ******************************************************************** 

•SBTTL RSVD INSTRUCTION TRAP SERVICE ROUTINE 
. ******************************************************************** 

JTHIS ROUTINE SERVICES UNEXPECTED RESERVED INSTRUCTION TRAP ERRORS 
;IT RESULTS IN PRINTING THE ERROR MESSAGE: "TRAPPED TO 10 PC=XXXXXX" 
; WHERE XXXXXX IS THE ADDRESS CONTAINING THE INSTRUCTION WORD THAT 
;SPRUNG THE TRAP. AFTER PRINTING THE ERROR MESSAGE AN ATTEMPT IS 
/MADE TO RESTART THE PROGRAM AT THE BEGINNING. 

;IF THE TRAP IS SPRUNG WHILE IN THE PROCESS OF TRYING TO SERVICE A 
;PREVIOUS RSVD INSTRUCTION TRAP OR AN UNEXPECTED BUS ERROR THE PROGRAM 
;WILL HALT. AFTER THE HALT THE STACK WILL CONTAIN INFORMATION RELATIVE 
;TO THE TWO SUCCESSIVE TRAPS AS SHOWN BELOW. 



JCSP3 PC+2 

;CSP3+2 PSW 

JCSP3+4 PC+2 

;CSP3+6 PSW 



;LOCATION "CATERR" 
INFORMATION: 



OF 2ND TRAP 
if 

OF 1ST TRAP 



CAN BE EXAMINED TO OBTAIN THE FOLLOWING 



;CCATERR3=401 



;CCATERR3=2 
;CCATERR3*1000 



RSVD INSTR TRAP COMBINED WITH A 
)TRAP (PC AT TIME OF ERROR HALT 
;WHTCH OCCURRED FIRST) 
TWO SUCCESSIVE BUS ERROR TRAPS 
TWO SUCCESSIVE RSVD INSTR TRAPS 



BUS ERROR 
INDICATES 



;THE CONTENTS OF RO AT THE TIME OF THE 

/HALT PROVIDES FURTHER INFORMATION AS TO THE LAST TEST BEING EXECUTED 
;WHEN THE TRAPS OCCURRED. 

;THESE TWO INSTRUCTIONS ARE USED BY THE BASIC INSTRUCTION 

;TESTS TO VERIFY THE RSVD INSTR TRAP MECHANISM PRIOR TO ACTIVATING THE SERVICE 
/ROUTINE 
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15832 
5833 
5834 

15835 



5874 



5878 



5§Ii 
5883 

5886 
5887 



061114 005137 063246 
061120 000002 



061122 005737 063252 




063253 
010000 



001012 
100000 



003262 
063253 



117676 



117646 
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RSVD INSTRUCTION TRAP SERVICE ROUTINE 



SEQ 0293 



RSVTST: 


COM 




RTI 


RSERR: 


TST 




BNE 




INCB 




BIT 




BNE 




TYPE 




RSMSG 


RSBERT: 


MOV 




TYPOC 




TYPE 




SCRLF 




INC 



RSVFLG 

a#CATERR 

ISCRSV 

8#1+CATERR 

*SW12 C @SWR 

RESTAR 

(SP),-(SP) 



BIT 
8EQ 
HALT 
RESTAR: JMP 
INCRSV: INCB 
HALT 
BR 




RESTAR 



;SET RSVD INSTR TRAP TEST FLAG 
> RET URN TO BASIC TEST 

;ANY PENDING CATASTROPHIC ERRORS 
?BE IF YES 

;SET RSVD INSTR FLAG 
JINHIBIT ERROR PRINT ? 
;BR IF YES 

;GO TYPE "TRAPPED TO 10 PC=" 

/GET ERROR PC ON STACK FOR PRINTING 
;TYPE THE ERROR PC 
;OUTPUT CR / LF 

;COUNT THE ERROR 
;HALT ON ERROR? 
;BR IF NOT 

>HALT ON ERROR— PRESS CONTINUE TO RESTART 

;GO ATTEMPT RESTART 

; INCREMENT RSVD INSTR FLAG 

CATASTROPHIC ERROR HALT 

REPRESSING CONTINUE WILL CAUSE 

; ATTEMPT TO RESTART. 



• ****** ****************************************************** ******** 

. SBTTL BUS ERROR TRAP SERVICE ROUTINE 
I ******************************************************************** 

;THIS ROUTINE SERVICES UNEXPECTED BUS ERROR TRAPS (BUS TIMEOUT, ODD ADDRESS 
;ERRORS, STACK OVERFLOW, AND ILLEGAL INSTRUCTIONS). IT RESULTS IN PRINTING THE 
} ERROR MESSAGE: "TRAPPED TO 4 PC =XXXXXX" WHERE XXXXXX IS THE 
ECONTENTS OF THE PC WHEN THE TRAP WAS SPRUNG. AFTER PRINTING THE 
; ERROR MESSAGE AN ATTEMPT IS MADE TO RESTART THE PROGRAM AT 
>THE BEGINNING. 

J IF THE TRAP IS SPRUNG WHILE IN THE PROCESS OF TRYING TO SERVICE A PREVIOUS 
JRSVD INSTR TRAP OR A PREVIOUS BUS ERROR, THE PROGRAM WILL HALT. 
>AFTER THE HALT THE STACK WILL CONTAIN INFORMATION RELATIVE TO THE 
;TWO SUCCESSIVE TRAPS AS SHOWN BELOW: 



;CSP3 PC+2 
;CSP3+2 PSW 
;CSP3+4 PC+2 
;CSP3+6 PSW 



OF 2ND TRAP 
n 

OF 1ST TRAP 



;LOCATION "CATERR" CAN BE EXAMINED TO OBTAIN THE LOLLOWING 
INFORMATION: 



;tCAT£RR 3=401 



>CCATERRJ=2 
J CCATERR 3=1000 



RSVD INSTR TRAP COMBINED WITH A BUS ERROR 
;TRAP (PC AT TIME OF ERROR HALT 
; INDICATES WHICH OCCURRED FIRST) 
TWO SUCCESSIVF "~ 



TWO SUCCESSIVE 



BUS ERRORS 
RSVD INSTR TRAPS 



;THE CONTENTS OF RO AT THE TIME OF 

;THE HALT PROVIDED FURTHER INFORMATION AS TO THE TEST IN PROGRESS 
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01' 
042737 
020037 
001510 



063250 



063252 



063252 

010000 117600 



063252 



001124 
061276 

mm 

002000 

U7516 
177000 
063242 



001112 



117524 

0( 
Of 



mm 
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BUS ERROR TRAP SERVICE ROUTINE 

J WHEN THE TRAPS OCCURRED. 

;THE CONTENTS OF THE SP CAN BE USED TO INDICATE IF STACK OVERFLOW CAUSED" 
;THE BUSS ERROR TRAP(S) AS SHOWN BELOW: 



SEQ 0294 



>400>CSP3>336 
KSP3 = 



YELLOW ZONE 
RED ZONE 



;THESE TWO INSTRUCTIONS ARE USED BY THE BASIC INSTRUCTION TESTS TO 
;VERIFV THAT THE BUS ERROR TRAP MECHANISM WORKS PRIOR TO ACTIVATING 
;THE SERVICE ROUTINE 



BETST: 
BERR : 



2$! 



COM 
RTI 

TST 

BNE 

INCB 

BIT 

BNE 

TYPE 

BEMSG 

BR 

INCB 
HALT 

BR 



l#CATERR 




RSBERT 

C AT ERR 
PEST AR 



;SET BUS ERROR TRAP TEST FLAG 
JRETURN TO BASIC TEST 

; ANY CATASTROPHIC ERRORS PENDING? 
;BR IF YES 

;SET CATASTROPHIC ERROR FLAG 
>INHIBIT ERROR PRINT 
" B R I F Y ES 

;PRINT "TRAP TO 4" MESSAGE 

;T YPE REST OF BUS ERROR MESSAGE 

;SET CATASTROPHIC ERROR FLAG 
CATASTROPHIC ERROR HALT-SCHOOLS OUT 
JDEPRESS CONTINUE TO ATTEMPT RESTART 



. SBTTL SCOPE HANDLER ROUTINE 

•Ik************************************************************** 

'THIS ROUTINE CONTROLS THE LOOPING OK SUBTESTS. IT WILL INCREMENT 
* AND LOAD THE TEST NUMBF.P(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
ERROR FLAG i$ERFLG| INTO DISPLAY< 15 : 08> 



* AND LOAD THE 
THE SWITCH OPTIONS PROVI 
14=1 



*SW 

*SW11=1 
*SW09=1 
*CALL 



LOOP ON 
INHIBIT 
LOOP ON 



BY THIS ROUTINE ARE: 



S scope: 



m 



SCOPE 



CMP 

BEQ 

MOV 

ERROR 

CLR 

MOVB 

BIT 

BEQ 

MOV 

BIC 

CMP 

BEQ 



TEST 

ITERATIONS 

ERROR 

JJSC0PE=ICT 



R0,@)f$TESTN ; ANY MISSED TESTS ? 

10$ ;br IF NOT 

#12$,@#$ESCAPE ;N0 ERROR LOOPING 

11 ;MISSED TESTS ERROR CALL 

B»$ESCAPE ;NORMAL ERROR LOOPING 

R0,9#$TSTNM ; INSURE TSTNUM IS CORRECT 

#SW10/@SWR ;L0OP ON SELECTED TEST? 

11$ ;BR IF NO 

aSWR,9fSELTST >GET CONTENTS OF SWITCHES 
§177000, MSELTST /MASK OUT SWR<15:9> 

R0,@#SELTST ;IS THIS THE SELECTED TEST? 

$OVER JBR IF YES 



;qkda-c KD11- 
:qkdac.pii 



t BASIC LOGIC TESTS 
07-N0V-79 14:09 



MACYll 30A(1052) 15-NOV-78 
SCOPE HANDLER ROUTINE 
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SEQ 0295 



061340 
061340 
061346 



032777 
001104 




040000 117472 



000004 

mm 

000004 
000004 



001003 
001015 
001000 
001010 

mm 

004000 

001126 

001004 
001110 



361610 
501002 
001002 
" 1006 

Joio 

001112 
000001 
001002 
001006 
001002 



001124 



063244 



001003 
117406 
001006 



001004 



001004 
001110 



001124 



001015 
1172S4 



HI' 



SIMtt! 



5$ 



7$: 
4$: 



117354 3$: 



BIT 
BNE 
START Of 
BR 



MOV 
MOV 
TST 
MOV 

BR 

I CMP 
MOV 
BR 

:>K#»##END 
TSTB 
BEQ 
CMPB 
BHI 
BIT 
BEQ 
MOV 
BR 

: CLRB 
CLR 
BR 
BIT 
BNE 
TST 
BEQ 
INC 
CMP 
BGE 
: MOV 
MOV 
INCB 
MOVB 
MOV 
MOV 
CLR 
MOVB 
MOV 
MOV 
CMPB 



1$: 

$SVLAD: 



SOVER: 



10$: 
$MXCNT: 



BEQ 
INC 
MOV 
RTI 
200 



SCOPEA: COM 
RTI 



#BIT14,(JSWR 
SOVER 
CODE FOR THE XOR 
6$ 

»#ERRVEC,-(SP) 

[SP)+<e#ERRVEC 
SSVLAD 
(SP)+,(SP)+ 
(SP)+,e#ERRVEC 

CiW FOR THE XOR 
SERFLG 

|Irm AX/$ ERFLG 

|llTO9 y 0SWR 

S^PERR/$LP ADR 
SOVER 
SERFLG 
STIMES 

|ilTll,(aSWR 

^Iass 

-ICNT 
|TIMES,$ICNT 
SOVER 
fl,$ICNT 
SMXCNT,$TIMES 
STSTNM 

ststnm/stestn 

(sp),slpadr 

cspLslperr 

5ESCAPE 
>1 £ SERMAX 
vTSTNM/ ADISPLAY 
|LPADR,(SP) 
A0<9#$TSTNM 
10$ 
RO 

R0,9#$TESTN 



8SSCOFLC 



JJLOOP ON PRESENT TEST? 

If.stfr IF SW14=1 

>1f R rSS$I$G ON THE "XOR" TEST! 
;THIS INSTRUCTION TO A "NOP" < 
;SAVE THE CONTENTS OF THE ERRC 
JSET FOR TIMEOUT 



/TIME OUT ON XOR? 
;RE< " 



E STORE THE ERROR VECTOR 
;GO TO THE NEXT TEST 
/CLEAR THE STACK AFTER A TIME OUT 
;RESTORE THE ERROR VECTOR 
SLOOP ON THE PRESENT TEST 
TESTER##### 

JHAS AN ERROR OCCURRED? 
* BR I F NO 

>MAX. ERRORS FOR THIS TEST OCCURRED? 
;BR IF NO 
;LOOP ON ERROR? 
; BR IF NO 

;SET LOOP ADDRESS TO LAST SCOPE 
;ZERO THE ERROR FLAG 

;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
J ESCAPE TO THE NEXT TEST 
^INHIBIT ITERATIONS? 
• j f YES 

;IF FIRST PASS OF PROGRAM 

; INHIBIT ITERATIONS 

/ INCREMENT ITERATION COUNT 

;CHECK THE NUMBER OF ITERATIONS MADE 

>BR IF MORE ITERATION REQUIRED 

; REINITIALIZE THE ITERATION COUNTER 

;SET NUMBER OF ITERATIONS TO DO 

;COUNT TEST NUMBERS 

>SET TEST NUMBER IN APT MAILBOX 

;SAVE SCOPE LOOP ADDRESS 

/SAVE ERROR LOOP ADDRESS 

; CLEAR THE ESCAPE FROM ERROR ADDRESS 

;ONLY ALLOW ONE(l) ERROR ON NEXT TEST 

;DISPLAY TEST NUMBER 

;FUDGE RETURN ADDRESS 

WAS STSTNM INCREMENTED? 

BR IP NOT 

INCREMENT TEST NUMBER 

FIX $TESTN TO BE WORD COUNT/ NOT BYTE 

;MAX. NUMBER OF ITERATIONS 

THESE TWO INSTRUCTIONS ARE 
USED IN THE BASIC TESTS TO 
VERIFY THE IOT LINKAGE 
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1605_ 
16053 
16054 
16055 



001060 
000004 



mm 



001003 

001002 
001012 
001016 
000002 
117102 
020000 

062046 
001115 

000001 

001014 
062736 



117050 



012737 



001112 

mm 



117150 

001016 
001014 
117114 



001140 
061760 



MACYU 30AU052) 15-N0V-78 
ERROR HANDLER ROUTINE 



-SBTTL ERROR HANDLER ROUTINE 
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SEQ 0296 



**************************** ******** ********** ****** *********** 

THIS ROUTINE HILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 



n 

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 




SERROR: 



10$: 
7$: 



20$: 



21$: 



22$: 
2$: 



001000 117036 3$: 



001010 
001112 



001074 



4$: 



5$: 



ERROR 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BNE 

MOV 

MOV 

INCB 

BEQ 

MOV 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

JSR 

TYPE 

CMPB 

BNE 

MOVB 

JSR 

.BYTE 

. BYTE 

BR 

TST 

BPL 

HALT 

BIT 

BEQ 

MOV 

TST 

BEQ 

MOV 

MOV 



HALT ON ERROR 
INHIBIT ERROR TYPE0UT3 
LOOP ON ERROR 

N ;;ERROR=EHT AND N=ERROR ITEM NUMBER 



R5 e -(SP) 

ftSKEGAD/ R5 

4{SP),(fi5)< 

R0/(R5)+ 

R1/(R5H 

R2,(R5)+ 

R3,(R5>+ 

R4 / (R5W 

? -,<R5> 

(SP}* t R5 
SERFLG 



jsave r5 on stack 
;get pointer 

;save error psw in sregad for typout 
;save ro for typeouts 
;save r| in $reg1 



;save 



fSP)/$ERRPC 
|2,$EPRPC 
5$ERRPC t $IT 
$BJT13,§SWR 



^APTENV/$ENV 

$ItEMB / 21$ 
PC,$ATY4 



|SHR 

|BiT09,(aswR 

$^PERR,(SP) 
SESCAPE 

$lsCAPE,(SP) 

#-l,@#$REG5 



IN JREG2, ETC. 



STNM/9DISPLAY 
RTTL 



}IS SP ALREADY STORED IN $REG5? 
rBR IF YES 

?PUT SP IN $REG5 FOR TYPOUT 

^RESTORE R5 

>>SET THE ERROR FLAG 

JJDON'T LET THE FLAG GO TO ZERO 

;;DISPLAY TEST NUMBER AND ERROR FLAG 

;jINC THE ERROR COUNT 

; ; GET ADDRESS OF ERROR INSTRUCTION 

;;STR1P AND SAVE THE ERROR ITEM CODE 

;;SKIP TYPEOUT IF SET 

;;SKIP TYPEOUTS 

;>GO TO USER ERROR ROUTINE 



;;RUNNING IN APT MODE 
;;NO,SKIP APT ERROR REPORT 
;>SET ITEM NUMBER AS ERROR NUMBER 
} } REPORT FATAL ERROR TO APT 



>;apt error loup 

>;halt on error 

;;skip if continue 

;;halt on errori 

;;loop on error switch set? 

>;br if no 

j;fudge return for looping 
;;check for an escape address 
;;br if none 

?} fudge return address for escape 
/flag current stack pointer to be typed 
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16056 
16057 
16058 
16059 

am 

16062 
16063 
16064 
16065 
16066 
16067 

nm 

16070 
16071 



16074 
16075 

\tm 

16078 
16079 
16080 
16081 
16082 
16083 
16084 
16085 
16086 
16087 

ilm 

mi? 
mn 

16094 
16095 
16096 
16097 
16098 
16099 

Urn 

16102 

urn 

16105 
16106 
16107 
16108 
16109 
16110 
16111 



062030 
062036 

mm 



042766 000020 000002 
000002 

063240 




erra: 



bic 

RTI 



COM 
RTI 



#20,2(SP) 



(i#ERRFLG 
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/CLEAR T BIT IN CASE ERROR OCCURED 
;IN T BIT TESTS 



JTHESE TWO INSTRUCTIONS ARE USED 

;IN THE BASIC TESTS TO VERIFY THE EMT 



SEQ 0297 



•SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

••***•**•*•****•*•*•****•**•*••*••«******* *********************** 

;*THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" ($ERRTB), 
/ *AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



$ERRTYP: 



1$: 



2S: 
3SJ 

4$: 

5$: 
6$: 

7$: 



8$: 



TYPE 
MOV 
CLR 
BISB 
BNE 




;;"CARRIAGE RETURN" & "LINE FEED" 
;;SAVE RO 

>;PICKUP THE ITEM INDEX 

;;IF ITEM NUMBER IS ZERO. JUST 
;;TYPE THE PC OF THE ERROR 
>;SAVE SERRPC FOR TYPEOUT 
;; ERROR ADDRESS 

>>GO TYPE— OCTAL ASCII (ALL OIGITS) 
;;GET OUT 

}} ADJUST THE INDEX SO THAT IT MILL 
}} WORK FOR THE ERROR TABLE 



J FORM TABLE POINTER 
f PICKUP "ERROR MESSAGE" POINTER 



SKIP TYPEOUT IF NO POINTER 
TYPE THE "ERROR MESSAGE" 
"ERROR MESSAGE" POINTER GOES HERE 
"CARRIAGE RETURN" £ "LINE FEED" 



TYPE tKe ^SItJ HEADER" 

> "data header" pointer goes here 
7 "carriage return" & "line feed" 
>pickup "data table" pointer 
;go type the data 
; restore ro 

; "carriage return" & "line feed" 
;return 



i } PICKUP "DATA "HEADER" POINTER" 



^?AVE g|R0)*_FOR.TY??QV? 



OCTAL ASCIHALL DIGITS) 

THERE ANOTHER NUMBER? 



;;GO TY 

5;is TH 

;>BR IF NO 
;;TYPE TWO(2) SPACES 
>>LOOP 

;;two{2) spaces 



***************************************************************** 
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25 
16126 
16127 



mm mm 063236 




001057 



000200 



0624: 
0010! 



001140 



000100 001141 

062260 
062726 

000040 001141 



000002 
000011 



MACY11 30AU052) 
PRINT ROUTINES 
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SEQ 0298 



********** ************ ******** *** 



PRINA 



: COM 
RTI 



9#PRIFLC 



JTHESE TWO INSTRUCTIONS ARE 
JUSED BY THE BASIC TESTS 
;THE TRAP INSTRUCTION 



O VERIFY 



.SBTTL TYPE ROUTINE 



*************************************************************** 

ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 

" L INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. „ _ 
NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



\i 

;*THE ROUTINE HI 
?*NOTEl: 
?*NOTE2: 
?»NOTE3: 



l*CALL: 
S*l) USING 



>*OR 



STYPE: 



1$: 



61J 
622 



2$: 



60$: 
3$: 



4$: 



TYPE 



TRAP INSTRUCTION 
,MESADR 



TYPE 
MESADR 




ro,-(sp) 
a2(SP),ftO 
|APTENV,$ENV 



SPOOL, SENVM 



JAPTCSUP,$ENVM 
'OS 

^R0)+,-(SP) 

(SP)+,R0 
#2,(SP) 

gHT,(SP) 

jjfCRLF,(SP) 

(Ip) + 



SF 



C.STYPEC 
ILLC,(SP)+ 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;;IS THERE A TERMINAL? 
;;br IF YES 

;;HALT HERE IF NO TERMINAL 

; ;LE AVE 
;;SAVE RO 

;;get address of asciz string 

running in apt mode 
;;NO,GO check for apt console 
)} spool message to apt 
;;no,go check for console 
;>setup message address for apt 
>;spool message to apt 
;;message address 
;;apt CONSOLE suppressed 

;>YES/SKIP TYPE OUT 

?;PUSH CHARACTER TO BE TYPED ONTO STACK 

;;BR IF IT ISN'T THE TERMINATOR 

>;IF TERMINATOR POP IT OFF THE STACK 

;;RESTORE RO 

>;ADJUST RETURN PC 

;;RETURN 

;;branch if <ht> 

;>branch if not <crlf> 

>;pop <crxlf> equiv 
;;type a cr and lf 

clear character count 
;;get next character 
>>gq type this character 
>;is it time for filler chars.? 
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001350 
013746 




001054 
000001 



000040 
■"422 

007 062466 



116414 
000002 



000002 



HACY11 30A(1052) 
TYPE ROUTINE 

BNE 
MOV 

7$: DF.CB 
BLT 
JSR 
DECB 
BR 
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SEQ 0299 



2$ 

$NULL,-(SP) 

1{SP) 

6S 

PC/STYPEC 
^CHARCNT 



Ic/|typ^c 

jf7/$CHARCNT 



;HORIZONTAL TAB PROCESSOR 



8$: MOVB 
9$: JSR 
BITB 
BNE 
TST 
BR 

STYPEC: TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

1$: CMPB 
BEQ 
INCB 
SCHARCNT:.WORD 
STYPEX: RTS 




j;IF NO GO GET NEXT CHAR. 

; ; GET * OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 
;;DOES A NULL NEED TO BE TYPED? 
?}BR IF NO— GO POP THE NULL OFF OF STACK 
;>GO TYPE A NULL 
;;DO NOT COUNT AS A COUNT 
JJLOOP 



> jreplace tab with space 
;;type a space 
;;branch if not at 



>>TAB STOP. 



..POP SPACE OFF STACK 
?;GET NEXT CHARACTER 
>;WAIT UNTIL PRINTER IS READY 



}} 



LOAD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 

YES — CLEAR CHARACTER COUNT 
EXIT 

IS CHARACTER A LINE FEED? 
BRANCH IF YES 
COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

• • *************************************************************** 

('THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(•OCTAL (ASCII) NUMBER AND TYPE IT. m m 

(•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TV 

(•CALL: 

(* MOV NUM,-(SP) ;;NUM8ER TO BE TYPED 

!* TYPOS >;CALL FOR TYPEOUT 

(* .BYTE N >;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

!* .BYTE M ?;M=1 OR 

>* ;;l=TYPE LEADING ZEROS 

(* >;0=SUPPRESS LEADING ZEROS 



*$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 

• MOV NUM,-(SP) //NUMBER TO BE TYPED 

• TYPON >>CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM/-(SP) ; ; NUMBER TO BE TYPED 

• TYPOC JJCALL FOR TYPEOUT 
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)00 

..301 062715 
062717 
000002 

000001 062715 
000006 062717 
000005 062714 



062717 

000006 
062716 
062715 
000012 



062716 
177770 



000060 
000040 
062712 
062712 
062714 



000002 000004 



$TYPOS: 



STYPOC! 

$typon: 



IS'. 
2$: 



3$: 



4$: 
5$: 

7$: 



6$: 



8$: 



MO? 

NOVB 

MOVB 

ADD 

BR 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

MOV 

MOVB 

NEG 

ADO 

MOVB 

MOVB 

MOV 

CLR 

ROL 

ER 

ROL 

ROL 

ROL 

MOV 

ROL 

DECB 

BPL 

BIC 

BNE 

TST 

BEQ 

INC 

BIS 

BIS 

MOVB 

TYPE 

DECB 

BGT 

BLT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

RT1 

. BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 



Esp J 



50MODE+1 



L77770,R3 



(SPJ+zRS 

(SP)+>R4 

(SP)+,R3 

2(SP) y 4(SP) 

<3P)t,($P> 



j/pickup the mode 
;;load zero fill snitch 

number of digits to type 
;;adjust return address 

;;set the zero fill snitch 
;;set for six(6) digits 
;;set the iteration count 

;;SAVE R3 

;;save R4 

;;SAVE R5 

; ; GET THE NUMBER OF DIGITS TO TYPE 

/ SUBTRACT IT FOR MAX. ALLOWED 

;SAVE IT FOR USE 

J GET THE ZERO FILL SNITCH 

JPICKUP THE INPUT NUMBER 

; CLEAR THE OUTPUT WORD 

; ROTATE MSB INTO "C H 

;GO DO MSB 

; FORM THIS DIGIT 



; GET LSB OF THIS DIGIT 
J TYPE THIS DIGIT? 
;BR IF NO 
J GET RID OF JUNK 
JTEST FOR 
JSUPPRESS THIS 0? 
>BR IF YES 

} DON'T SUPPRESS ANYMORE O'S 

;MAKE THIS DIGIT ASCII 

;MAKE ASCII IF NOT ALREADY 

;SAV£ FOR TYPING 

;GO TYPE THIS DIGIT 

; COUNT BY 1 

;BR IF MORE TO DO 

; BR IF DONE 

;INSURE LAST DIGIT ISN'T A BLANK 
>GO DO THE LAST DIGIT 
; RESTORE R5 
; RESTORE R4 
^RESTORE R3 

;SET THE STACK FOR RETURNING 
;RETURN 

; STORAGE FOR ASCII DIGIT 
; TERMINATOR FOR TYPE ROUTINE 
;OCTAL DIGIT COUNTER 
. JZERO FILL SWITCH 
J /NUMBER OF DIGITS TO TYPE 



.SBTTL APT COMMUNICATIONS ROUTINE 



. ************ ************ ******** ********** ************ ********* 
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000 
000 
000 
063166 

88888? 
888m 



000001 063164 

000001 063162 

000001 063164 
063162 

000001 001140 

000100 001141 
000004 



000004 



000002 
001120 

001134 
001134 

88JJ^4 001120 

000004 063074 
000002 000004 
177776 
062210 



063164 

001140 

001120 

0Q0Q04 
000002 
001120 
063164 
063163 
063162 



88&CS04 



5ATY1: 
> ATY3 : 



SATY4: 
SATYC! 



1$: 

2$! 



3$: 



11$: 



12$: 



MOVB 
MOVB 
BR 

MOVB 

MOV 

MOV 

TSTB 

BEQ 

CMPB 

BNE 

BITB 

BEQ 

MOV 

ADD 

TST 

BNE 

MOV 

TSTB 

BNE 

SUB 

ASK 

MOV 

MOV 

BR 

MOV 

ADD 

MOV 

JSR 

.WORD 

TSTB 

BEQ 

TST 

BEQ 

TST 

BNE 

MOV 

ADD 

INC 

CLRB 

CLRB 

CLRB 

MOV 




#1/$FFLG 
Il,$MFLG 
SATYC 
#1,$FFLG 

R0,-(SP) 
R1*-(SP) 
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;;TO REPORT FATAL ERROR 
J?TO TYPE A MESSAGE 

;;TO ONLY REPORT FATAL ERROR 



L t. v 
MFLG 

#ipTENV,$ENV 

pPTSPOOL/$ENVM 

fl$(SP),R0 

SMSciYpI 

r|^msgad 

|mSGAD/R0 

RO/SMSGLGT 
|4/$MSGTYPE 

|I(SP^4$ 
PC,$TYPE 



|MsGTYPE 

Imsgtype 

5FFLG 

jLFLG 

SMFLG 

[SP7*,R1 

[SP)*,R0 



FATAL 



.SBTTL TRAP DECODER 



;;PUSH RO ON STACK 
;;PUSH Rl ON STACK 
;;SHQULD TYPE A MESSAGE? 

;;IF NOT: BR 

;;OPERATING UNDER APT? 
>;IF NOT : BR 
; > SHOULD SPOOL MESSAGES? 
J>1F NOT : BR 

;;get message addr. 

;;bump return addr. 
>;see if done w/ last xmission? 
>)if not: wait 
;;put addr in mailbox 
;;find end of message 

;>sub start of message 
;> get message lngth in words 
;;put length in mailbox 
;;tell apt to take msg. 

;>put msg addr in jsr linkage 
;;bump return address 
>>push 177776 on stack 
;;call type macro 

should report fatal error? 

?;IF NOT: BR 
;;RUNNING UNDER APT? 
>>IF NOT: BR 
;;FINISHED LAST MESSAGE? 
>;IF NOT! WAIT 



;;get error # 
;;bun 

; ;tell apt to take error 



(BUMP RETURN ADDR. 



;;CLEAR FATAL FLAG 
;;CLEAR LOG FLAG 
//CLEAR MESSAGE FLAG 
;>POP STACK INTO Rl 
;;POP STACK INTO RO 
;;RETURN 
;;messg. flag 
;>log FLAG 
>>FATAL FLAG 
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000002 




16346 
16347 

11349 
16350 

1^52 
16353 
16354 
16355 
16356 
16357 
16358 
16359 



16360 
16361 
16362 

Itffl 

16365 
16366 
16367 
16368 
16369 

\ffll 
16372 
16373 

\mt 

16376 
16377 
163 
163 
16380 
16381 
16382 
16383 
16394 
16385 

nm 

16388 
16389 
16390 
16391 



063222 



063210 011646 

063212 016666 000004 000002 
063220 000002 



06322? 
063224 
063226 
063230 
063232 



063256 
063260 
063262 
063264 



063210 
062210 
062516 
062472 
062532 



063234 000000 




063254 000000 



177400 
177400 
177400 
177400 
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SEQ 0302 



. . *************************************************************** 

>*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
>*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT HILL 
;*GO TO THAT ROUTINE. 



STRAP: 



MOV 

MOV 

TST 

MOVB 

ASL 

MOV 

RTS 



R0,-(SP) 

-fioi' 

p.g 0) ' R ° 
gTRPAD(R0)/R0 



;;save RO 

>>GET TRAP ADDRESS 

jSbackup BY 2 

J J GET RIGHT BYTE OF TRAP 
>;POSITION FOR INDEXING 

INDEX TO TABLE 
;>GO TO ROUTINE 



;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 
STRAP2 : MOV fillrtm, 



MOV 
MOV 
RT1 



;;move the pc down 
;;move the psw down 
;>restore the psw 



•SBTTL TRAP TABLE 

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 



ROUTINE 



STRPAD: .WORD 
STYPE 
STYPOC 
STYPOS 
STYPON 



STRAP2 

;;CALL=TYPE 

;;CALL=TYPOC 

>;CALL=TYPOS 

;>C»LL=TVPON 



.'1044031 

TRAP+4(104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



? FLAGS, 

BPTLOC: 

PRIFLG: 
ERRFLG: 
SELTST: 

scoflg: 
RSVFLG: 
BERFLG: 
CATERR: 

ONCE : 
;COMMON 



CONSTANTS, AND VARIABLES 



DATA STRUCTURES AND MISCELLANEOUS TABLES 



;STORES 16 USER DEFINED MAINTENANCE 
BREAKPOINTS 

;FLAG USED BY BASIC TESTS FOR TRAP TEST 
;FLAG USED BY BASIC TESTS FOR EMT TEST 
;STORF.S SR<8:0> FOR LOOP ON SELECTED TEST 
JUSED BY BASIC TESTS FOR TOT TEST 
; FLAG USED BY BASIC TEST OF RSVD INSTR TRAP 
JFLAG USED BY BASIC TEST OF BUS ERROR TRAPS 
;FLAGS USED BY BUS ERROR AND RSVD INSTR TRAP 
JSERVICS ROUTINES 

'FLAGS PROGRAM TITLE HAS BEEN PRINTED 



177400 
177400 
177400 
177400 



>DL11 OUTPUT TEST BUFFER 
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000004 
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SEQ 0303 




000000 
000000 
000000 
177777 



IBUF: 



MBUFO : 
MBUFl: 
DWTA: 



.BLKW 



DWTB 
DBT A 
DBTB 
MBUFO 
MBUFl 






>DL11 INPUT TEST BUFFER 



J}} 



J7400 

125252 
ALUADD: 052525 

;THIS TABLE OF 8 ENTRIES IS 
; COMBINED INSTRUCTION TESTS 



?ALSO SERVES AS NULL ENTRY FOR ALUADD 
USED BY THE ALU ADD TEST IN THE 



ANDTAB: 



SRC OP1 
DST OPl 
ANSI 
SRC OP2 
DST UP2 
ANS2 
SRC OP3 
DST OP3 
ANS3 
SRC OP4 
DST OP4 
ANS4 
SRC OP5 
DST DP5 
ANS5 
SRC OP6 
DST OP6 
ANS6 
SRC OP7 
DST OP7 
ANS7 
SRC OP8 
DST OP8 
ANS8 -- 



ALSO NULL ENTRY FOR ANDTAB 



;THIS TABLE OF 8 ENTRIES IS USED BY THE ALU 
;COMBINED INSTRUCTION EXERCISER TESTS 



•AND" TESTS IN THE 



000000 
000000 
000000 
177777 



JSRC OPl 
;DEST OPl 
;ANS1 
;SRC OP2 
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16448 



NACY11 30AU052) 
TRAP TABLE 




15-N0T-78 15:26 PAGE 305 



;0ST QP2 
)ANS2 
>SRC OP3 
>DST OP3 
>ANS3 
;SRC 0P4 
>DST 0P4 

;ans4 



; src op; 

}DST OP? 
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16458 
16459 
L6460 
16461 

mil 

16464 
16465 
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16468 
16469 
16470 
16471 
16472 
16473 




[6484 
[6485 



16489 
6490 
6493 
nm 

16496 
16497 

urn 

16500 
16501 

hm 

16504 

16505 
6506 
6507 
tm 

{6510 
65J1 
65U 
6513 



000000 
052525 
052525 
0Q0000 

J% 
052525 

052525 

mm 



000000 

m 

177777 
177777 

bm 

mm 
mm 

mm 

125252 
125251 

mt 
W 

052525 
1*7777 




052S25 
052525 

ORTAB: Hi 2*1 3 



! ANS5 
>SRC OP6 
>DST OP6 
(ANS6 
JSRC 0P7 
>DST OP7 
>ANS7 
(SRC 0P8 
>DST 0P8 
;ANS8 -- 



ALSO NULL ENTRY FOR ORTAB 



;THIS TABLE OF 8 ENTRIES IS USED BY THE ALU "OR" TEST IN THE 
;C0MBINED INSTRUCTION EXERCISER TEST 



000000 



052525 
052525 

ALUSUB: 

;THIS TABLE OF 8 ENTRIES IS USED BYTHE ALU SUB TEST IN THE 
; COMBINED INSTRUCTION EXERCISER TESTS 



;SRC OP1 
/DEST OP1 

;ansi 

;SRC OP2 

;dst op 2 

;ANS2 
;SRC OP3 
;DST OP3 
>ANS3 
?SRC OP4 
;DST 0P4 
;ANS4 
;SRC OP5 
;DST OP5 

;anss 

>SRC OP6 
>DST OP6 
;ANS6 
;SRC OP7 
;DST OP7 
;ANS7 
;SRC OP8 

;dst ops 

?ANS8 -- ALSO NULL ENTRY FOR ALUSUB 



0000Q0 

Of" " 



;src QP1 
;dst DPI 
/ANSI 
;SRC OP2 
>DST 0P2 
JANS2 
;SRC 0P3 
;DST (1P3 
;1NS3 
;SRC OP4 

;dst op4 

;ANS4 
>SRC OP5 
;DST OP5 
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--°312 
131302 
005712 
105712 
§21312 
031317 
121311 
13131; 
06130* 
000302 
160302 



TST 

CLR 

COM 

INC 

DEC 

ADC 

SBC 

ASR 

ASL 

CLRB 

COMB 

INCB 

OECB 

AOCB 

AOCB 

SBCB 

TSTB 

ASRB 

ASLB 

BISB 

XOR 

CMPB 

3IT9 

BICB 

MOVB 

CMP 

BIT 

BIC 

BIS 

SXT 

NEG 

SUB 

CMP 

BIT 

CMPB 

BITB 

TST 

TSTB 

CMP 

BIT 

CMPB 

QITB 

ADO 

SWAB 

SUB 
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;ANS5 
;SRC OP6 
>DST OP6 
JANS6 
>SRC OP7 
;DST OP7 
;ANS7 
;SRC OPS 
;DST OP8 
;ANS8 

/BEGINNING OF INSTRUCTION TABLE OF INSTRUCTIONS 
;THAT TEST BUT SERVICE IN VARIOUS ROM LOCATIONS 



SEQ 0306 



| 5 P2 



,R2 
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SEQ 0307 




dwtb: 



TLOCl: 

PSWHOLl 

TABBEG: 

tabend: 

stgblk: 

vadr: 

PA1716: 

PA1500: 

TLOC2 : 



TBL2 ! 



R2 

R2 

R2 

.+2 

.+2 

R3,R2 
R3,R2 
R3,R2 
R3,R2 
R3,R2 
R3,R2 
R3>R2 



ADD 
MOV 
MUV 
MOVB 
ROL 
ROLB 
NEGB 
BVS 
BVC 
RESET 
CMP 
BIT 
BIC 
CMPB 
BITB 
BICB 
BISB 


1 

400 

177401 

52526 
125253 

MED TEST TABLES 



. WORD 
.WORD 
.WORD 
.WORD 
.BLKk! 
. WORD 
.WORD 
. WORD 
.WORD 








40 








JALSO SERVES AS INST AB TABLE TERMINATOR 



TABLE II 

FOLLOWING IS A T ABLE OF INTERNAL REGISTER OPERATION CODES 
USED FOR TESTING THE MED INSTRUCTION. LABELS CORRESPOND 
TO RECISTER NAMES, THE HIGH BYTE IS THE READ OPERATION 
CODE/ THE LOW BYTE THE WRITE CODE. 

NOTE : WHEN ADDING OR DELETING 

ENTRIES IN THIS TABLE, CHECK DUAL 

ADDRESING TEST TO SEE THAT THE "SCRATCH 

PAD LIMITS" ARE MAINTAINED. 



.BYTE 
• BYTE 
.BYTE 
. BYTE 



JA SCRATCH PAD - LO 

JLOBYTE, HIBYTE=WRITE CODE, READ CODE 



204,004 
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16626 
16627 
16628 
16629 
16630 
16631 
16632 
16633 
16634 
16635 
16636 
16637 
16638 
16639 
16640 
16641 
16642 

11144 
16645 
16646 
16647 
16648 
16649 
16650 
16651 
l--hS2 
16653 
16654 
16655 
16656 
16657 
16658 
16659 
16660 
16661 
16662 
16663 
16664 
16665 
16666 
16667 
16668 
16669 
16670 
16671 
16672 
16673 
16674 
16675 
16676 
16677 
16678 
16679 
16680 
16681 



064176 
064200 
064202 
064204 
064206 
064210 
064212 
064214 
064216 
064220 

mm 

064226 
064230 
064232 
064234 
064236 
064240 
064242 
064244 
064246 
064250 
064252 
064254 

064756 
064256 
064260 
064262 
064264 
064266 
064270 
064272 
064274 
064276 
064300 
064302 
064304 
064306 
064310 
064312 
064314 
064316 
064320 
064322 
064324 
064326 
064330 
064332 
064334 
064336 
064340 

064342 
064342 
064344 



241 
242 
243 
244 
245 
246 
250 
251 
252 
253 
254 
255 
2 5 6 
257 
260 
261 
262 
263 
266 
270 

m 

274 
275 
276 
277 



300 
301 



041 
042 
043 
044 
045 
046 
050 
051 
052 
053 
054 
055 
056 
057 
060 
061 
062 
063 
066 
070 

V,l 

074 
075 
076 
077 



100 
101 
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R5 A: 
R6A: 

FAC3.0 
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>A SCRATCH PAD-HI 



237,037 



;B SCRATCH PAD - LO 



JB SCRATCH PAD - HI 



277,077 



;C SCRATCH PAD 
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102 
103 
104 
105 
107 
110 
111 
112 
113 

1J6 
024 
025 
064 
065 




137 
145 
151 
177 

18 



000 
007 
040 
047 
114 
117 
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302,102 
303,103 
304,104 



316,116 




I 

;* 
;* 

TBL3: 
hops: 



TBL4: 

roa: 
R7A: 

ROB: 
R78: 
CNST2: 
CNSTl: 



f BL5: 

lcdta: 
md: 

CNSCTL: 




311,111 

m-AU 

.BYTE 
224,024 
225,025 
264,064 

265>065 




TABLE III 

THE FOLLOWING IS A LIST OF "NOP" OPERATION CODES 
THAT HILL BE USED WITH A MED IN MED TEST 3 TO 
ENSURE THAT A MED WITH THESE CODES WILL NOT HANG. 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 



mm 
mm 





JGROOP A 

>GROUP B 

;GROUP C 

;group d 

> GROUP E 

;FROUP G 

;A TERMINATES TABLE 



TABLE IV 

THE LIST BELOW CONTAINS THOSE OPERATION CODES 
CORRESPONDING TO THE INTERNAL REGISTERS WHICH MUST 
BE TESTED SEPERATELY BECAUSE THEY ARE READ-ONLY, 
WHITE-ONLY, OR USED IN MACRO CODE EXECUTION, ETC. . 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
TABLE V 



.BYTE 
. BYTE 
.BYTE 
.BYTE 
.BYTE 



200,000 
207,007 
240,040 
247>047 



>LOBYTE,HYBYTE - WRITE CODE, READ CODE 
;0 REPLACES ANY NON EX SI STENT CODES 
;EXCEPT IN THE CASE OF ROA 



;THIS TABLE CONTAINS THE OPERATION 
; CODES OF THOSE INTERNAL REGISTERS 
5 WHICH MUST BE TESTED USING THE 
;MICROBREAK REGISTER. THEIR 
ASSOCIATED MICRO- ADDRESSES ARE IN 



SEQ 0308 



SEQ 0309 
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067 
140 




000100 

88818^ 

000103 
000104 



077600 

Mil 

000004 
050000 
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• BYTE ( 

•BYTE ] 

•BYTE 1 

•BYTE 1 
.BYTE 

.BYTE ' 

•BYTE | 

.BYTE ' 

:im 1 

.BYTE ] 

.BYTE ' 

.BYTE : 

•BYTE ] 

.BYTE ■ 

.BYTE ] 

•BYTE ( 
.EVEN 

TABLE VI 



JAM: 

SERV: 

PBA: 

CUA: 

FLAG: 

DREG: 

REV: 

sreg: 

count: 

NUA: 

RES: 

dcso: 
DC Si: 



TBL6 : 
OLCDTA: 
UMD: 

UCNSCTL: 

ujam: 
userv: 
upba: 
ucua: 
uflag: 

udreg: 

UREV: 

usrec: 
ucount: 

ONUA: 
URES: 
udcso: 

UINIT: 

UDCSl: 
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;the next table 



SEQ 0310 



>INIT REG 

;table terminator 



;THIS TABLE CONTAINS THE MICRO- ADDRESSES 
;WHICH ARE LOADED INTO THE MICROBREAK 
>REG. TO TEST THE OPERATION CODES 
CONTAINED IN THE PRECEEDING TABLE. 



f BL7 : 

cljam: 

clsepv: 

clpba: 

clcda: 

clfgin: 



.WORD 3330 

•WORD 3150 

.WORD 3375 

.WORD 3271 

.WORD 3245 

.WORD 3224 

.WORD 3160 

.WORD 3161 

.WORD 3170 

•WORD 3171 

.WORD 3344 

. WORD 3320 

.WORD 3345 

.WORD 3340 

.WORD 3350 

.WORD 3341 

.WORD 3351 

.WORD 3355 

. WORD 3720 

. WORD 3724 

.WORD 3721 

TABLE VII 

THIS TABLE HOLDS THE OPERATION CODES AND THE CONSTANT 

VALUE EXPECTED FOR CERTAIN INTERNAL REGISTERS. 



. WORD 100,77600 
.WORD 101,10 
.WORD 102,20000 



, WORD 
.WORD 



103,4 
[04,50000 



QKDA-C KD11-K BASIC LOGIC TESTS 
QKDAC.P11 07-NOV-7B 14:09 



MACY11 30AU052) 
TRAP TABLE 



15-NOV-78 15:26 PAGE 312 



SEQ 0311 





. EVEN 

dbta: 

.BYTE 000,377,252,125 
DBTB: 

.BYTE 000,001,120,253 



JMESSAGE TABLES 



EM7: 



EM6: 
EM5: 



EM10: 



EM3: 



DH2: 
DH4: 
EOPl: 



.ASCII 
.ASCII 



.ASCII 
.ASCIZ 



'S/B DST ' 
'WAS DST * 
' DEST'<HT> 

* (IR)*<HT>* TEST*<HT>* (PC)'<HT>* (SP ) '<HT> '(PSW) ' 



, ASCIZ *S/B RES WAS RES DST OP SRC OP TEST*<HT>* (PC)'<HT>* (SP ) "<HT> '(PSW) " 



. ASCIZ 'S/B SP*<HT>'WAS SP'<HT>* (IR)'<HT>- TEST'<HT>' (PC) *<HT>*(PSW) ' 



.ASCIZ <HTXHT> ' IS R3* 
.ASCIZ <HTXHT> * IS R5' 
. ASCIZ <15><12>'END PASS # 
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4504 
-20124 
000122 
040525 
042507 
047117 

047503 
052116 
043516 



042101 042040 



020120 
040524 
047522 
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EOP2: .ASCIZ <HT>*ERROR COUNT = * 

IDEMTl: .ASCIZ <15><12>*CQKDAC KD11-K BASIC LOGIC TESTS*<15><12> 

BEMSG: .ASCIZ <CRXLF> 'TRAPPED TO 4 PC = ' 

RSMSG: . ASCIZ <CRXLF> "TRAPPED TO 10 PC = ' 

EHll: . ASCIZ 'TESTS SKIPPED' 

DHll: .ASCIZ " PC"<HT>"EXPCTD W <HT>"ACTUAL ,, <HT>"(TEST #'S) n 

EM12: . ASCIZ /MED DID NOT ABORT IN OSER NODE/ 

EM13: . ASCIZ /MED EXECUTED IN USER MODE/ 

EM14: . ASCIZ /MED CHANGED PSH/ 

EM15: .ASCIZ /MICROBREAK TRAP-TO-4 DID NOT OCCUR/ 

EM17: .ASCIZ /LOGCUA LOGGED WRONG/ 

EM21: . ASCIZ /CSP CONSTANT WRONG/ 

EM22: . ASCIZ /BAD DATA READ BY A MED/ 



SEQ 0312 
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16906 
16907 
16906 
16909 



042522 
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EM23: . ASCIZ /NO ODD PC TRAP/ 

EM24: .ASCIZ /ODD ADR. BIT NOT SET IS CPU ERR REG OR LOG JAM/ 



EM26: .ASCIZ /PHYS BA LOGGED WRONG/ 

EM27: . ASCIZ /CACHE PARITY ERROR LOGGED IN BAKUP MODE/ 

EM30: .ASCIZ /CACHE PARITY TRAPPED WHEN DISABLED/ 

EM41: .ASCIZ /INSTR. NOT ABORTED IN CACHE ABORT MODE/ 

EM32: .ASCIZ /MEMORY ERR REG INCORRECT/ 

EM33: .ASCIZ /TIMEOUT BIT NOT SET IN CPU ERR REG OR LOG JAM/ 

EM34: .ASCIZ /NO ILLEGAL INTERNAL ADR TRAP/ 



SEQ 0313 
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urn 

16964 
16965 
16966 
16967 
16968 
16969 
16970 
16971 
16972 
16973 
16974 
16975 
16976 
16977 



MACYU 30A(1052) 
TRAP TABLE 



15-HOV-78 15:26 PAGE 315 



SEQ 0314 




16979 
16980 
16981 
16982 
16983 
16984 
16985 
16986 

ml 

16989 



EM36: 



EM31: 



020046 EM42i 

_4?5^4 
044522 
052111 

24 

11 

40 

042503 

020046 EM43: 
052131 
040524 
044522 



.ASCIZ /INTRNAL ADR ERR BIT NOT SET IN CPU ERR REG OR LOG JAM/ 



.ASCIZ "LAST INTR/TRAP VECTOR NOT LOGGED IN FLAG REG" 



. ASCIZ /LOG FIRST MODE DID NOT INHIBIT ERROR LOG AFTER FIRST ERROR/ 



.ASCIZ /ERROR LOG WAS NOT REKNABLED, ODD ADR BIT CLR IN CPUERR/ 



. ASCIZ /NO CACHE PARITY TRAP/ 

.ASCIZ /LO & HI BYTE & TAG PARITY BITS NOT SET IN LOG SERVICE/ 



.ASCIZ /LO i. HI BYTE & TAG PARITY BITS NOT SET IN HEH ERR REG/ 



CQKDA-C KOll-K BASIC LOGIC TESTS 
CQKDAC.P11 07-NOV-78 14:09 

17018 
17019 
17020 
17021 

17024 
17025 

m 

17028 
17029 

imi 

17032 
17033 
17034 
17035 
17036 
17037 

\m 

17040 
17041 
17042 
17043 
17044 
17045 

urn 

17048 
17049 



.551 
17052 
17053 
17054 
17055 
17056 
17057 

\mi 

17060 
17061 

\Voil 

17064 

17065 
M 

m\ 

17073 




067221 

Mm 

067242 
067250 



020051 

uw 

042440 
040 

mm 

004461 
027523 

mm 

044450 
042524 
040 
042515 
020105 
041117 

Q21 m 

042515 
020105 



046013 
00011! 
020040 



mm 

047111 
042440 
043505 

042510 
046040 
020104 
000107 
020105 
046040 

mm 

042523 
042116 
051505 
043516 
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EM45: .ASCIZ /CACHE TAG LOGGED WRONG/ 

EM16: . ASCIZ /CACHE DATA LOGGED WRONG/ 

EMEISl: .ASCIZ 'EIS SET COND CODES WRONG* 

EMEIS2 : .ASCIZ 'EIS GAVE WRONG RESULT* 

EM46: .ASCIZ 'AUTO- INCREMENT (DECREMT) DID NOT OCCUR IN EIS* 

DHEISl: .ASCII ' PSW*<HT>*REG-WAS-REG+1*<HT>'REG~S/B-REG*1*<HT> 

DH46: .ASCIZ ' PC'<HT>' (IR)'<HT>* TEST ' 

DH15: .ASCIZ / PC/<HT>/MEDCODE HICROBK REG./ 

DH17: .ASCIZ / PC/<HT>/MEDCODE EXPECTD RECEIVD/ 



SEQ 0315 



DH23 * ASCIZ / PC/ 

DH24: lASCIZ / PC/<HT>/CPUERR/<HT>/LOGJAM/ 
041520 043011 DH25: .ASCIZ / PC/<HT>/FLGREG/ 



mn 
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mm 

037066 
050040 
"5065 

*0474 
026476 



DH27: 
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DH26: .ASCIZ * PC'<HT>'<17:16>-S/B PA-<15:0> <17:16>-WAS PA-<15:0>' 



SEQ 0316 



001^6(5 06{ 
001070 001064 



« qq im 



DF15: 
DF17: 
.EVEN 



uii; 

DT10: 
DT7: 
0T6: 
DT5: 



> ASCIZ / PC/<HT>/LOGPBA/<HT>/LOGDATA/<HT>/LOGTAG/ 

■ ASCIZ / PC/<HT>/MEMERH/ 

. ASCIZ / PC/<HT>/LOGSERVCE/ 

.ASCIZ / PC/<HT>/EXPCT/<HT>/RECVD/ 

.WORD $ERRPC,$TMP0,$TMP1,0 

. WORD $ERRPC,$TMP1,$TMP2,$REG0,0 

. WORD $ERRPC,$TMP1,$TKP2,$TMP3,0 

. WORD SERRPCO 

.WORD $ERRPC$REG1,SREG0,0 

. WORD SERRPC,SREGO,0 

. WORD JERRPCS REG1,$ REG2,$REG0,$REG3,0 

. WORD $ERRPC,$REG3,$REG1,$REG2,0 

. WORD $REGAD,$REG2,$REG3,$REG1,$REG4 

. WORD $ERRPC,$TMP0,$REG0,0 

.BYTE 0,0 

.BYTE 0,0/0 



. WORD SREG4 

> WORD 5REG3 

.WORD SREG2 

.WORD $REG1 ,$REG0,$ERRPC,$REG5,$REGAD, 

.WORD $REG4,$REG3,$REG1,$REG0,$ERRPC,$REGAD, 
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SEQ 0317 



17130 
17131 
17132 

urn 



070014 
070022 
070024 
070032 



001062 
000000 
001016 
000000 
000001 



001016 001060 

001124 001062 DTll: . WORD SERRPC/STESTN/SREGO/O 
• END 
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inn 1 888888 m 

ACDW2 = 000000 933 

ACPUOP= 000000 933 

ADDWO = 000000 933 

ADDWl = 000000 933 

ADDW}0= 000000 933 

ADDW11= 000000 933 

A0DW}5= 

ADDU13= 

ADDW14= 

ADDW15= 



948 
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SEQ 0318 



941 
942 
935 



mm 



AMTYP3= 
AHTYP4= 



mm 

063276 



14132 
938 



163339 
16142 



16291 



946 
2691 
7643 
7836 
8039 



164390 



16289 163310 
16332# 



*28? 

7865 
8040 



7894 
8054 



2751 
7680 
7895 
8068 



2764 
7692 
7909 
8090 



2812 
7705 

Iffl 



2852 
7729 
7938 
8772 



mi 



mi 

7981 
8824 



2897 
7794 
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ATESTN= 

AUNIT - 

AOSWR -■ 

AVECT1= 

AVECT2= 

A002 

A015 

A017 

A020 

m\ 

A032 

A033 

A034 

A041 

A046 

BASIC 

BEMSG 

BERFLG 

BERR 

BETST 
BITO " 
BITOO = 
BITOl = 

B II22 ' 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 

Itttt : 

BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 - 
BIT6 - 
BIT7 
BIT8 : 
BIT9 = 
BKFLAG 
BKROUT 
BPTLOC 



BPTVEC= 000014 



ioo 

100 



am 



9096 
9772 



1713 
1734 



937 
940 
947 



11* 
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SEQ 0319 



9133 
9826 



15900* 

12319 

15336 

2297 



15963 
15485 



15347 
15945 
15092 
15180 

15340 
5797 
1224 
1225 

15087 
15116* 

3690 
14853 



9147 
9870 



163820 

13183 

15365 



16040 



15042 15970 



16033 

15119 
15377 

15592 
15423 
6649 
7505 

15138 
15126 

16^b# 



9248 
9935 



13221 
15413 



15161 
15602 



15174 
15347 



15790* 
4924 



9262 
11084 



9285 
11127 



9299 
11171 



9386 
14409 



9418 
14429 



9490 
14481 



9532 
14501 



9767 
14548 



13260 
15541 



13277 
15588 



13329 
15619 



13389 
15635 



13427 
15654 



13458 
15669 



13490 14917 
15903# 



15417 15454 15535 15572 15609 15636 



15180 15454 15495 15572 15602 15609 15847 



15369 
15522 



15793* 
5797 



15620 



6649 



7505 



8320 



9241 



10026 10896 11708 
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BSP1 

BSP2 

BT001 

BT002 

BT003 

BT004 

BT005 

BT006 

11852 

BT011 

BT012 

BT013 

BT014 

BT015 

BT016 

BT017 

BT020 

BT021 

BT022 

BT023 

BT024 

BT025 

PT026 

:'T027 

!T030 

8T031 

BT032 

BT033 

BT034 

BT035 

BT036 

BT037 

BTQ40 

BT041 

BT042 

BT043 

BT044 

BT045 

BT046 

CATERR 

CCMSCO 

CCNSC1 

CCNSC2 

CCNSTO 

CCNST1 

CCNST2 

CCR 

CCST20 

CITST 

CLCOA 

CLFGIN 

CLJAM 

CLPBA 

CLSERV 

CLTAG 
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SEQ 0320 



001662 
001700 
001716 

mm 

001762 
002002 
002022 
002046 
002070 
002116 
002144 
002220 
002256 
002310 
002334 
002374 
002420 
002440 
002460 
002500 
002520 
002540 
002600 
002640 
002700 
002720 
002740 
Q02760 
003006 
003044 
003064 
003106 
003134 
003162 
063252 
064572 
064576 
064602 
064616 
064622 
064612 
177746 
064606 
013412 
064552 
064556 
064536 
064546 
064542 
064566 




1878# 



1461 



1595 



m°2 

1743 



1824 



1590b* 15912* 16383* 



15227* 15277* 15291* 15293* 15407* 15408 15447* 15451* 15453* 15457* 15472* 
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CLHHAH 

CNSCDR 

CHSCTL 

CNSCO 

CNSC1 

CHSC2 

CNSSH 

CNSTSW 

®m 

CNST2 
COUNT 
ggUERRa 

CRLF = 

CSP1 

CSP2 

CST200 

CUA 

DBTA 



064634 
064460 

mm 

067756 
067760 

mm 

067303 
067335 
065061 
067372 
067377 
067422 

Mm 

067553 

067606 
067262 

000001 
064452 

urn 



167941 

166411 

16737* 

16687? 

J66S 

1668 „ 

16640$ 

166391 

llM 



1041 
1068 

nu 

1039 
1066 
980 
1021 
1085 



902 
1072 
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SEQ 0321 



\lffl tiffl \lihl 15591 15620 15628 

16198 



3316 3328 3366 3378 3566 3574 9629 9649 9668 9679 9692 9703 

11170 11256 16397 llUl* " 46 9868 1 1 11 16 

3353 3391 3403 3442 3494 3655 3695 



16398 16809* 



17119* 
17049* 



17063* 




H13 1120 1141 1176 17 
69 17069* 



068# 



17095* 
15472 
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SEQ 0322 



DT23 
DT24 
DT25 
DT26 

8?i 7 

DT4 

DT46 

DT5 

DT6 

DT7 

DWTA 



067670 
067700 



067706 
067722 
070006 
067764 
067746 
067772 
067770 
067766 
063322 




065704 
065731 
065013 
066001 
066604 
066113 
066144 
066222 
066251 
066345 
066422 



1128 
1100 
1107 
986 
991 
1212 
996 
1001 
1006 
2322 
2851 

7631 
7980 
9058 
10587 
2547 
1491 
1525# 
1547# 
1583 
1693* 
1715$ 

1915| 

1196 

1203 

\m 

102 
1026 
1032 
1038 
1045 
1091 

979 
1065 
1071 
1077 
1084 
1059 
1105 

984 
1112 
1119 
1126 
1133 
114" 
114 
1154 
1161 



18i| 



1712 
1711 

2880 

^55 
8009 
9095 
10614 
2549 
1492 



1584 



1703 



mm 



mt nn mi nn 

1184 1191 17108# 



mi 
mi 

III! 

10641 



1585 



16920* 



mi 



11 77 



63 



2643 
3203 




1588# 



2697 
3204 



mi 



93^3 
16406# 
3673 



17106# 



3^5 
3530 
7864 

11 8 5 



2746 
3215 



mi 

8988 
10505 



mi 

10§3^ 



8603 16396 16E88# 
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066717 
067005 



mm 

169371 
17004S 
170141 
I7024| 
17041* 

mm 

168191 
168481 

mm 

4430* 
14904* 
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SEQ 0323 



16060* 
14917* 



16378# 
15950 



15951* 15953* 15956* 



001656 



1302 
1317 
13" 



32 



3921 



66 



it 74 



67 



FACO.O 



1721 
1742 
1823 

lil^l 
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PACO.l 064326 J6672# 
FAC0.3 064330 16673# 
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SEQ 0324 



064272 
064274 



FAC3.1 

FAC3.2 

FAC3.3 

FAC3.4 

FAC3.5 

FDSTO 

FDST1 

F0ST2 

POST* 

V F A 

FLAG 

FPSHI 

GNS 

GNWHAM 

HI 

HT 

IBUF 

IDENT1 

INCRSV 

INIT 

INST AB 

IOTVEC= 

1002 

1004 

1005 

1006 

1007 

1010 

1011 

1012 

1013 



1017 
1020 
1021 
1022 



002 



16631 
16632 



16366 16367 1636R 16369 



15485 
16157 
17063 
4602 
16854* 
15851# 
15717 
16525& 

1289# 



15495 
16198 
17069 
16393# 



15850 



16821 
17073 



16822 
17075 



16827 
17084 



16837 
17089 



16844 
17092 



16846 
17095 



16851 16872 17049 17055 
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1023 
1024 
1025 
1026 

1033 
1034 

im 

1037 
1040 
1041 
1042 

mi 

1045 
1046 
JAM 
JMP5 
JMP5A 
LCDTA 
LCUA 
LF 

LFGIN 
L JAM 

LKCSR 

LO 
LPBA 
LSERV 
LT AG 
LWHAM 
MBUFO 
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SEQ 0325 



064342 
177546 

000100 

mm 

064356 
064354 
063312 




16865 

12365 12395 12608 12639 



12670 12701 12732 12767 12832 
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SEQ 0326 



MBUF1 063316 



MD 
MED 



064440 
= 076600 



HEDHLT 
HEDT1 
HEDT10 
MEDT11 

- — T3 




000340 
177776 



PSWHOL 064050 
PTRP1 057712 
PWRUP 061054 



11080 
12887* 
14482* 
2157 
7904* 
8685 
12918 
16735# 
1215# 
15085 
15186 
15337 
15542 
14923 
14944 
15045 
15081 
14995 
15009 
14920 
14901 

Ml 

16749# 
4582 
1927* 
14187 
1223 
16603 
16602 
16741 
735, 
82 9 # 
1930 
4403 

III* 
753 

754 

755 

756 

757 

758 

759 

732 

733 

1631 

4234 

4360* 

4751 

12417* 

12564* 

12752* 

14902* 

16597# 

15458 

15764 



15143 



4401* 
16115# 



733 
1432 
1684 
4238* 

4 !f 0* 
^428* 
12570* 

unr* 

15469# 
15773# 



11105 
12912 
14549* 
2714 
7933* 
9552 
13157 

14908 
15090 
15205 
15366 
15589 
14925 



16388# 
164^» 



1446 
4380* 

\mv 

12587 

12788* 

14944* 



16399 

mr 

10559 
13167 

14921 
15093 
15232 
15383 
15611 
14927# 



15310 15494 



1467 
1706 
4262 
4385 

\mi 

12594* 
12804* 
15774* 




46|^ 4636* 163851* 



4410* 16115* 16377# 



1485 
1707* 
4266* 
4388* 
12147 
12449* 
12613* 
12820* 



1496 

\ltt* 
4639* 

\mr* 

12628* 
12840* 



1505 

till* 

4681 

mh 

12 644* 
12850* 



1514 

4II2* 
4687 

12659* 
12886* 



3388 
8020* 
10901 
13914 

14998 

\m\ 

15482 
15750 



1563* 
4701 




7879 
8657 
12888* 



15051 
15171 
15303 
15536 
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PWRVEC= 000024 824# 
RCSR = 177560 12601 
RDBR = 177562 12611 
RDFLAG= 000144 1236* 
RDLCUA= 000103 12441 
RDLDAT= 000106 1250| 
RDLFGI= 000104 1246* 

mtr* mm M\ 

RDLSER= 000101 1245i 
RDLT AG= 000107 12521 



15260 
15384 



15910 
13838 
16865* 
4450 s 
15832# 
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15729* 15738* 15744* 15759* 15760* 
^7t 



SEQ 0327 



4578 

15091 

15529 
15543 

PI 



15086 15137 



14918' 



15118 



15656 
15367 
15353 



15671 
15415 
15504 



15590 15627 



15853 



15907 15914 



14918 15835# 
15832* 16381# 



064262 



061612 
063242 
064445 

8*2911 

043000 
043156 



166261 

mm 

16657J 

15009 

15021 

mv 

15940* 
ii^70# 

i\m 

12049 
11974* 



1673 
1672 



15941* 

m 

11978 
1431 



15994* 16380# 
15942 16379# 



11978# 



1918 



1934 14903 15773 
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SEQ 0326 



START 
STG8LK 
STKLHT: 
SWB01 = 
SWR 

SWREG 

SUO = 

SHOO - 

SW01 = 

SW02 = 

SW03 - 

SW04 = 

SW05 - 

SH06 = 

SW07 = 

SWOB - 

SW09 = 
SHI 

SW10 - 

SW11 = 

SW12 = 

SW13 = 

SW14 = 

S W 1 5 = 
SW4 

SWS = 
SW6 

SWT = 

SWS 

SW9 = 
TABBEG 
TA9END 
TAG 

TBITVE- 

TBL2 

TBL3 

TBL4 

TBL5 

TBL6 

TBL7 

TBSER 

TKVEC = 

TL0C1 

TL0C2 

TPVEC - 

TRAPVE= 

TRTVEC= 

TSET 

TSTO 

TST1 

TST10 

TST100 

TST101 



001630 
064056 
177774 
000071 
001040 



840 




lilh 

15047 
13846 

827# 
15223 
16604* 
B28f 
826$ 
821f 
138461 
1942? 
1947 
2050 
3228 
3265 



1274# 15775 



157811 
1523B 



4640 



1 52?2 \Vl%l 15752* 15838 15847 15906 15938 15940 15945 15963 15970 
16048 



15838 15906 



15495 



15289 15296 15449 15459 15505 15509 15517 16596# 



2057f 
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3302 
3329 
3354 
3379 



TST 
TST 
TST 
TST 
TST 



TST 
TST 
TST 
TST 
TST 
TST 
TST 
TST 
TST 
TST 
TST 
TST 
TST 



L114 



744 



oi: 



355^ 



4243 
4264 
4304 
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SEQ 0329 
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TSTI67 

TST17 

TST170 

TST121 

TST172 

TST175 
TST176 
TST177 



TST215 
TST216 
TST217 



TST231 
TST232 



013722 
013760 
014020 
014042 
014064 
004154 
014106 
014130 
014154 
014176 
01422Q 



015424 
015472 
015542 
015616 
004310 
015 672 
015744 
016014 
016062 
016132 



W 

4431 

WW 



4374# 



4483# 
4532# 



mi 
mil 

5465* 
5491J 
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SEQ 0330 
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TST245 016200 5510 
TST246 016250 5536 
TST247 016320 5562 
TST25 004360 2312 
TST250 016376 5589 
TST251 016452 5616 
TST252 
TST253 
TST254 
TST255 
TST256 
TST257 
TST26 
TST260 
TST261 
TST262 
TST263 
TST264 
TST265 
T5T266 
TST267 
TST27 
TST270 
'ST271 
TST272 
TST* 
TSTJ 

tst; 

TST3 
TST30 
TST300 
TST301 
TST3Q2 
TST303 
TST304 
TST305 
TST306 
TST307 
TST31 
TST3I0 
TST311 
TST312 
TST313 
TST314 
TST315 
TST316 
TST317 
TST32 
TST320 
TST321 
TST322 
TST323 
TST324 
TST325 
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SEQ 0331 



276 
277 



SS8Q 
?607 



5680 
5708 



66 

im 

6708 

6735 

6762/ 

6789 

6816 
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TST3?f) 
TST327 
TST33 
TST330 



22226 
J2304 
04646 

him 
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J22770 
523046 
J04702 



7781 
7801 



7881 
1987 



2545 
7917 



8004 
8033 
8062 
8084$ 



m 

ml 



JST^ 

TST46? 
TST464 
TST465 
TST466 
TST467 
TST47 



027232 
027314 
027364 
027434 
022510 
027564 



0053 
030? 
030C 



3260 
5344 



2583 
8340 
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TST407 026416 8098 

TST41 005132 2560 

TST410 026466 8120 

TST411 026536 8142 

TST412 026602 8169 

TST413 026652 8196 

TST414 026726 8223 

TST4J5 027002 8250 

TST416 027056 8578 
TST417 
TST42 
TST420 

mm 

TST423 
TST424 
TST425 
TST426 
TST427 
TST43 

?K«£ 

'ST432 
TST433 

mm 

TST436 
TST437 

ffltio 

TST441 
TST442 
TST443 
TST444 
TST445 
TST446 
TST447 
TST45 
TST450 
TST451 

mm 

TST454 
57 
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L4i 
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JST470 033104 
171 Q33I46 
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TST41 
TST472 
TST473 

TST476 

TST477 

TST5 

TST50 

TST500 

TST501 

TST502 

TST503 

TST504 

TST505 

TST506 

TST507 

TST51 

TST510 

TST511 

TST512 

TST513 

TST514 

TST515 

TSTS16 

TST517 

TST52 

TST520 

TST521 

TST522 

TST523 

TST524 

TST525 

'ST526 

TST527 

TST53 

TST530 

TST531 

TST532 

TST533 

TSTb34 

TST535 

TST536 

TST537 

TST54 

TST540 

TST541 

TST542 

TST543 

TST544 

TST545 

IST546 

TST547 

TST55 

TST550 



!614 
1672 



9561 
9589 
9617 
9637 
9656 
9680 
2002 
2704 



10520 
2771 
10547 
10575 

10709 
10736 
2796 
10764 



9526J 
9548| 

iif 



102151 
1024l| 

2762 
10328 
10357 
10386 

184^3 ft 



TST571 
TST572 
TST573 
TST574 
TST575 



TST576 
TST577 
TST6 
TST60 
TST600 
TST601 
TST602 
TST603 
TST604 
TST605 
TST606 
TST607 
TST61 
TST610 
TST611 
TST612 
TST613 

mm 



TST621 
TST622 

mm 

TST625 
TST626 
TST627 
TST63 



) 42310 

mm 



mm 
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TST551 037172 10793 1 

TST552 037260 10823 J 

TST553 037340 10853 1 

TST554 037426 10883 1 

TST555 037526 10917 1 

TST556 037612 10947 1 

TST557 037676 10977 1 

?ST56 005750 2821 

ST560 037762 11006 j 

ST561 040020 11026 i 

TST562 040064 11046 

TST563 040132 11068 1 

mm mm \ 

TST566 040322 11134 

TST567 040374 11156 

TST57 006010 2840 

TST570 040446 1117R 

510 11199 

560 11221 

622 11242 

672 11264 

732 11282 

772 11304 

042 11326 

444 2016 

062 2865 

102 11353 

160 11375 

226 11407 

304 11433 

344 11464 

422 11486 
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SEQ 0335 



11516 
11542 
2887 
11568 
11594 

\mt 

W4 

117571 
11773 

lM 
11838 
11867 

nm 

11954 
11980 
12001 
2921 
12020 
12039 



1122} 

11672# 



11786 

am 

11851 



11962 
11983 

mi 

12027 
12046 



11365# 

11388 

11415 

11447 

11476# 

11499 

11524 

11550 

11576 

\\m 



11397# 
I1423# 
11454# 

11506# 
115321 
115581 

11S84# 

imi mm 



11989# 
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TST632 043174 
TST633 043276 
TST634 043402 



TST641 

TST642 

TST643 

TST644 

TST645 

TST646 

TST647 

TST65 

TST650 
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SEQ 0336 



TST67 
TST670 



TST700 
TST701 



TST711 
TST712 




13222 
13261 

13330 

13390 1340 

2034 
3029 

mm 

13542| 
13564* 
13597* 
13615 
13650 
13685 
3046 
13728 
13755 
13782 



13632* 
136671 
13702| 
3054* 



mm 
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TST713 052304 13812 

TST714 052436 1385? 

TST715 052526 1388J 

TST716 052556 13891 
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SEQ 0337 



TST724 

TST725 

TST726 

TST727 

TST73 

TST730 

TST731 

tItt*^ 



)53160 
3244 



J54340 
672 



urn 

3104 
14557 
14586 
14615 
14644 
14666 

11511 

3123 



mnl 

14365 

111! 

14509 
14540 



148981 



3163* 



TST765 
TST766 



TSTT 
TYPE 



04402 
04404 
[04403 



15701 15704 15707 15761 15840 

am Ml mh urn km 16366 » 



15844 15908 16036 16071 16088 16090 
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1935* 14901* 15081* 15115* 15145* 



SEQ 0338 



15751 



mm 



1*51! 
12471 



15044 
15235 

15233 
15237 

imt 

4513 

857# 
16326 
16284# 

16281f 
162838 



15121 15140 



15142 15163 
15291 15293 
4534 4552 



15206 
15451 
12427 



15456 
15453 
12450* 



15537 15574 15612 15638 

12460 12483* 12494 12551 12799 12880 



16174* 16181 16190* 16195# 



914* 
9141 
913 



915f 
91 5§ 



9164 
916* 



917* 
91 7# 



918JI 
918i 



919fj 
919« 
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SEQ 0339 



5CM4 = 

5CPUOP 

5CRLF 

5DEVCT 

jOOAGN 

>ENDAD 

SENDCT 

iENULL 

>ENV 

JENVH 

5EOP 

JEOPCT 

jERFLG 

(error 
Ierrpc 

JERRTB 
>ERRTY 
jERTTL 
5ESCAP 
iETABL 
5ETEND 
5r AT AL 
5FFLG 
>FILLC 
5FILLS 
sGOADR 
GDDAT 
[GET42 
$GTSWR= 
>HD = 
5HIBTS 
llCNT 
[ILLUP 
1INTAG 
llTEMB 
{LF 
5LFLG 
SLPADR 
5LPERR 



sMAIL 

HBADR 

Imflg 

jHSGAD 
MSGLG 
»MSGTY 
JMXCNT 
SNULL 
INWTST- 



000005 
001146 
001115 
001130 
060654 
060644 
060600 
060660 
001140 
001141 
060550 
060572 



J 1 5 
061620 
001016 

001150 
062046 
001012 
001112 
001140 



001056 
001055 
001020 
001024 
060634 



000000 
000700 
001004 
061036 
001035 
001014 
001116 
063163 
001006 
001010 



001120 
000702 
063162 
001134 
001136 

06lHo 



920# 
15707 



15709 
1571U 



ipp 

15961 
15650 

mir 

16085 

mi* 

15934* 



15974 

"57." " 



16032* 
16059 
16327J 
4640* 

\mv> 

12878* 
till" 



921 # 


922# 


923# 


924» 












15845 


16036 


16059 


16071 


16090 


16095 


16099 


16163 


16198 


15715# 


















mn 


\m% 


16313 
16291 














15959 
15994* 


15961 
15993 


15967* 


15993 


16026* 


16059 








16013# 

mr 


16032 
17129 


16059 
17132 


16077 


17099 


17101 


17103 


17105 


17106 


15705 
15936* 


15846* 
15983* 


16029* 
16051 


16059 
16053 


16059 











16311 
16198 



15744 15766# 



15975 
7£ 



V 1 



16040 
16198 

15965* 
11677* 
12367* 
12961* 
3807* 
4188* 

93 4# 




17108 17109 



16320* 16328# 



15977' 
16059 



11712* 
12396* 
13134* 

imv 

15980 
16326# 



16315 



15992 



16074 



15986 

11737* 

12493* 

13501* 

13837* 

14236* 

16038 



16319* 
2229*1 



15992 

11762* 

12550* 

13524* 

13861* 

14255* 

16142 



52521 



11791* 
12607* 
13547* 
13877* 
14280* 



mil 



11824* 
12638* 
13569* 



2038* 
2291# 



11856* 
12669* 
13709* 



mn 



11889* 
12700J 




urn 



12112* 
12798* 

\nw 

15992 
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>418 
586 
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SEQ 0340 



JOCNT 
50MODE 
50VER 
5PASS 
JPASTM 
5POWER 
5PWRAD 
>PWR0N 
SPWRHG 
5PWRUP 
5QUES 
5RDCHR= 
5RDDEC= 
iRDLIN - 
5RD0CT= 
REGAD 

Irego 



062714 

062716 

061560 

001126 

000706 

061044 

061032 

060664 

061026 

060736 

001114 

****** y 

****** (j 

****** u 

****** (j 

001060 

001062 




582 
6170 

sfoo 

w 

9375 
9||4 

1^713 

\\m 

11729 
12062. A 

129733 

1346ll 

13809# 

14094 

14506ft 

14846| 

15209* 



2633 
2892 

im 

3808 
4001 
4270 
4567 
4845 
5145 
5514 
5881 
6222 
6558 
6920 

m 
im 

im 

9439 
9729 
10049 

mil 
\mi 

11783 

12140 
12630 
13051 
13516 
13851 
14154 
14561# 
14893 
15279# 




16015 
15448* 



17113 
"19 



17127 17129 
15476 15546' 



17101 17106 17108 17109 17115 17127 17129 17132 
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5REG1 
>REG2 
RKG3 
5REG4 
5REG5 



>RTNAD 
>R2A 
>SAVRE 
>SAVR6 
5SCOPE 
[SETUP 
SVLAD 

isvpc 

SWR 



001064 
001066 
001070 
001072 
001074 



060656 
- ****** 

****** 

mm 
mm 

D00714 
L65000 



914i 
9151 

916* 
9171 
9181 
13030 s 
13385* 
15717# 
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17129 



SEQ 0341 
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15970 



JSWREG 

£SWRMK= 

5TESTN 

jTIMES 

5TKB 

JTKS 

JTMPO 

STMP1 
>TMP2 
5TMP3 
STMP4 
STN 



001142 
000000 

mn 

001046 
001044 
001076 

001100 
001102 
001104 
001106 
000770 




15985 15992 16006 16007 16008 16009 16029 16033 



SEQ 0342 
16045 



17132 
[5968* 



1947 
1992 

Io9l# 

2165 

2229 

2295 

2371# 

2432 

2499 

2570 

2644 

2709 

2764# 

2840 

2908 

2984 

3039* 

3109 

3201 

331 U 

3404 

3487 

3562 

m 

3784# 

m\ 

3931 

4025 
4075 
4140 

\iW 

\m* 

4578# 
4693 
4762 
4808# 



15975 15978* 15992 



1952 

1996 

2043# 

2110 

2170 

2233 

2379 
2437 
2503 

mi* 

2713 

2771 

2845 

2912 

2985# 

3046 

3113 

3202# 

^4^9 
3491 

p* 

3728* 
3788 
3838 
3886 
3 93 2 f* 

mi 

4079 
41414 

tm 

4431 

4513* 

4645 

4698 

4764* 

4812 



1956 

1997# 

2050 

2115 

2174 

223 4# 

2312 

2384 

2441 

2504# 

2583 

2653 

2714# 

2776 

2849 

2913# 

2993 

3051 

3518* 

3333 
3413 

till* 

mi* 

3793 

3937 
3986 
4034 

\ffl* 

4435 

4521 

4650 

4700# 

4767 

4816 



14567* 



17101 
17103 



1961 

2007 

2058 

2120# 

2184 

2252 

2321 

2389# 

2453 

2520 

2593 

2663 

5726 

mi* 

2926 
3002 
3056ft 

im 

mi* 

3513 

3599# 

3684 

3755 

3798# 

3847 

3897 

3946 

mi* 

4101 
4176 

\m* 

4440# 
4533 
4655 
4715 

4s2§» 



14596* 
17103 



3803 

mi 
mi* 

4045 
4105 
4177# 

Wi 

4459 

4534* 

4659 

4720 

4778# 

4827 



14625* 14654* 
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SEQ 0343 
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usr 

10579 
1Q664 
10747* 

11035 

Am* 

11247 



STPB 



001052 



.3664 
13779 
1389^ 
14007* 
1424" 
1436_ 
14475 
14567* 
14666 
14765 
14851 
15037 
15289* 
15640 
906# 



9724 
98 




14852* 

15039$ 

15316 

15644 

16187* 



SEQ 0344 



9790# 
9876 



0388 

o — 

.0'. . . 
103C 



1304 
1367 

up* 

,1550 
.1605 
1674 
1788 

Am* 

2039 
2140 
2244* 
2344 
12457 

mi* 

2978 
3108# 
13232 
3406* 
3539 
3650 
3758* 
3894 
4006 

mi* 

4470 
4566 
.4654* 
14762 
4846 
1026 
>287 
5S71* 
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,$ASTA= 



****** (j 

000700 




15718 
16600* 
16281 
B47# 
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16369* 16370* 



15937* 15979* 15980 15985 15987 15993 16028 16059 



16366 

16185* 16186 



I709II 
"1H 



16274* 



848* 

m 



868 869# 

12712 12743 l$t$ iTfiH 
15993 16059 16109* 16198 



ie!^* 



SEQ 0345 
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SEQ 0346 



CQMMEN 
ERDCOM 




9945 
10178 

m 

10796 
11028 

\k\ 

11575 
11719 
11896 
12099 
12283 
12572 
12929 
13173 
13377 
13649 
14025 
14432 
14646 
14910 
15300 
15510 



4733 

111! 



4749 



11333 
11463 
11593 
11744 

\m 

12316 
12588 
12940 
13204 
13415 
13684 
14145 
14463 

urn 

15343 
15533 




ESCAPE 
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GET PR I 
GETSWR 
MSG 



MSGJ 

MSGM1 

MSGM10 

MSGM11 

MSGM3 

MULT 

NEWTST 
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SEQ 0347 



NOINST 

NOSCOP 



15433 




66# 12868 13592# 13594 13849# 13851 
14 14257* 14259 14670* 14672 151470 
155520 15555 



2038 

mi 

2952 

p 

3942 
4217 
4645 
4890 
5302 
5705 
6118 
6506 
6920 
7322 
7697 
8081 
8482 
8883 
9407 

llffl 
10551 
10982 

11213 
11739 




11641 
12043 
12599 

mh 

14152 
14670 
15316 
13782 
14540 
2010 
2294 
26 " 
29 
32 

w 

4175 

4550 



12062 
12630 
13150 
13699 
14212 
14716 
}§392 
13812 
14564 

mt 

2636 
2929 
3311 

mi 

4196 
4576 



101C . 
10524 
10952 
11291 
11700 
12103 
12661 

\m% 

14257 
14740 
15431 
14004 
14593 
2041 
2350 
2652 
2955 
3336 
3710 
3945 
4220 
13855 



13972* 
15150 



lOlli 
10579 
11011 

m 

12177 

mn 

13779 

15640 
1412? 



13974 
15208S 



14032# 
15211 



14034 
15278# 



14092# 
15281 
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POP 

PREERR 

PRENEW 

PRESCO 

PUSH 

REPORT 

SCOPE 
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SEQ 0348 



SETPRI 
SETTPA 
SETUP 
SKIP 



830# 15752 
J014 

1898 14941 



15730 

4649 
4894 

hi 

6122 
6510 

7701 
8085 
8486 
8887 
9411 
9760 
10135 
10555 
10986 
11317 
11733 
12144 
12696 
13231 
13756 
14305 
14769 
15570 



13729 



3703 



16368 16369 



1946 
2202 
2515 
2865 
3228 
3680 
3922 
4188 
4711 
4976 
5406 
5819 
6218 
6607 
7023 
7418 
7781 
8169 
8590 
9005 
9497 



16323 
15036 



16324 
15078 



15156 




15286 15327 15402 15443 15568 15643 



mi 

5544 

III! 
HI? 

7553 
7918 



13939 
14541 
15038 



13543 
13956 
14565 
15080 



92 
96, 
9973 
10387 
10802 
11187 
11559 
11990 
12456 
13055 
13565 
14005 
14594 
15158 



iffl 

§570 
5992 
6380 
6790 
7194 
7574 

9237 
9645 
9995 

\m 

11208 
11585 
12009 
12489 
13030 
13598 
14065 
14623 
15221 



mi 
mi 

6406 

mi 

7601 
7976 

_ 93 

lltt 

mil 

11615 
12028 
12546 
13105 
13633 
14125 
14652 
15288 



1973 


1987 


2002 


2015 


2034 


2050 


2066 


2088 


2110 


2128 


2146 


2247 


2264 


2286 


2312 


\m 




2379 


2395 


m 


2432 


2453 


2560 


2583 


2606 


2644 


ffl\ 


2704 


2721 


2771 


2796 


2904 


2921 


2947 


2975 


2993 


3011 


3029 


3046 


3086 


3104 


3123 


3302 


3329 


3354 


3379 


3404 


3430 


3456 


3482 


3508 


3531 


3553 
3876 
4114 


m 


3745 


3760 


3773 


3787 


3803 


3818 


3832 


3847 


3861 


3966 


3981 


3996 


4010 


4024 


4040 


4055 


4070 


4096 


4243 


4264 




4365 
4796 
5115 


tttt 


4431 


4475 


4521 


4541 


4559 


4655 


4753 




\m 


4827 


4841 


4855 


4870 


4885 


4912 


5045 


5071 


5089 


5141 


5193 


5220 


5246 


5272 
5672 


5298 


5325 


5458 


5484 


5510 


5536 


5562 


5589 


5616 


5644 


5700 


5728 


5876 


5902 


5932 


5957 


5984 


6011 


6037 


6062 


6088 


6114 


6140 


6269 


6295 


6321 


6347 


6372 


6398 


6424 


6450 


6476 


6502 


6528 


6668 


6700 


6727 


6754 


6781 


6808 


6835 


6862 


6888 


6915 


6942 


mi 

7822 


7104 


7131 


7158 


7185 




mi 


7266 


7292 


7318 


7* 7*17 


7492 


7518 


7544 


7565 


mi 


7644 


7668 


7693 


7852 


7881 


7910 


7939 


7968 


7997 


8026 


8055 


8076 


8098 


8223 


8250 


8278 


8307 


8340 


8369 


8397 


8424 


8451 


8478 


8505 


8645 


8672 


8701 


8732 


8759 


8785 


8811 


8837 


8857 


8878 


8909 


9079 


9116 


9153 


9190 


9227 


9268 


9305 


9337 


9369 


9401 


9433 


9539 


9561 


9589 


9617 


9637 


9656 


9680 


9704 


9724 


9752 


9778 
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9986 
10407 

11802 
12196 




SEQ 0349 



10014 


10045 


10072 


10099 


10126 


10154 


10435 


10464 


10492 


10520 


10547 


10575 


10853 


10883 


10917 


10947 


10977 


11006 


11221 


11242 


11264 


11282 


11287 


11304 




11415 


11433 


11437 


11447 


11464 


WIU 


11568 


11573 


11576 


11594 


11597 


11838 


11867 
12216 


11900 


11929 


11954 


11980 
12276 


12204 


12225 


12256 


12264 


13650 
14666 


13685 
14709 




14292 
14762 


14327 
14786 


14358 
14814 




85^9 
8708 
8915 
9161 
9439 
9595 
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9684 



9686 



SrfRSU 
TKSTNQ 




99^0 
10330 
10745 
11144 
115 OR 
11943 
12392 



4836 
5202 
5598 
6020 
6407 
6818 

m 

7977 

Iffl 
9279 
9665 
10023 
10445 
10863 
11231 
11616 
12029 
12547 
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9729 
9905 

Pi 
pi 

10952 
11119 

P* 

11700 

1 ifli 
821! 

12955 

lim 

13725 
13921 
14257 
14508 
14740 
14991 
15431 
16279 

2011 
2295 
2616 
2912 
3275 
3670 
3916 
4176 
4551 
4865 
5255 
5654 
6071 
6459 
6872 
7275 
7653 
8035 
8433 
8846 
9348 
9713 
10081 
10502 
10927 

\UVa 

12067 
12635 



SEQ 0350 





iffll 
10718 
11122 

\\m 

12362 
12958 
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SFQ 0351 




SCMRE 
5CMTM 
5ESCA 
5NEWT 



it ° 
325 
7700 
8084 
8485 
8886 
9410 
9759 
10134 
10554 

1° 1 

Mi 

13955 

m 

830* 

AW 

2478 



3808 



13081 
13599 
14066 
14624 
15220 



16077 16101 



13106 
13634 
14126 
14653 
15287 



13131 
13669 
14186 
14679 
15328 



13155 
13704 
14232 



13194 
13730 
14276 
14745 
15444 



137^3 
14306 
14770 
15569 



13284 
13784 
14336 
14794 
15644 



13344 
13814 

Ml 



13404 
13856 
14403 
14851 



13434 
13884 
14439 
14899 



13466 
13899 
14475 
14942 



13498 
13924 
14511 
14993 
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JSSKIP 



7470 
7R27 
R2?7 
6641 

9545 
( <903 
in? 96 



- 071 J 

nil? 

11473 



.EQUAT 
. HK ADR 
• KT11 
•SETUP 
. SWPHT 



11909 

\mi 

13493 
13919 
14506 
14980 
16358ft 
Iff 
2165 
?474 
>P?.\ 
315? 
3644 

\{ 
.; i. *, o 
■i 5 3 ' 
'■o52 
',753 
fldb 
655 4 
60 69 
7370 
774 2 
8120 
8533 
8^41 
9455 
98 05 
10181 
10602 
11026 
11309 
11469 
11602 
11983 
12285 
14394 
14P43 
1» 

il 



7497 
7856 
8254 
8676 
912? 
9566 
9925 
10325 
10740 
11139 
11503 
11943 

\\m 

13516 
13935 
14537 
15026 
16367 
830ft 
2184 
?404 
2 8 40 
3191 
3662 
J907 
4167 
4689 
4959 
5379 
5784 
6192 
6580 
6996 
7396 
7761 
8142 
3562 
8973 
9476 
9832 
10208 
10629 
11046 
11326 
11486 
11605 
12001 
12334 
14430 
14875 
698# 
69R# 



698# 



7523 
7885 
B283 
8706 
9159 
9593 
9947 
10354 
1076? 
11161 
11529 
11959 
12419 
13013 
13539 
13952 
14561 
15061 
16368 
1147 
2202 
2515 
2865 
3228 
3680 
3922 
4168 
4711 
4076 
5406 
5819 
6218 
6607 
7023 
7419 
7781 
8169 
8590 
900 5 
9497 
9854 
10234 
10656 
11068 
11336 
11496 
11624 
12020 
12352 
14466 

720 
699 



708 



1?] 



4 21 2 

4731 
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7570 

9232 
9641 
9991 
10411 

11581 

13592 
14032 
14619 
15209 

1974 
2247 
2560 
2904 
3302 
3718 
"?51 
243 
753 
5045 
5458 
5876 
6269 
6668 
7077 
7465 

118 

8645 
9079 
9539 
9898 
10291 
10709 
11112 
11358 
11516 
11632 
12058 
13222 
14533 



13664 

15316 

2002 
2286 
2606 
2947 
3354 
3760 
3981 
4304 
4782 
5089 
5510 
5932 
6321 
6727 
7131 
7518 
7881 
8278 
8701 
9153 
9SR9 
9942 
10349 
10764 
11156 
11385 
11524 
11660 
12132 
13330 
14586 




14709 



13809 
14362 
14817 



2088 
2395 
2721 
3046 
3432 
3833 
4055 
4521 
4856 
5246 
5644 
6062 
6450 
6862 
7266 
7644 
8026 
8424 
8837 
9337 
9704 
10072 
10492 
10917 
11264 
11433 
11573 
11900 
12225 

urn 



7765 

ml 

§837 
10212 
10633 

wm 

11816 

um 

13399 
13849 

U398 
846 

m 

2754 
3086 
3508 
3847 
4070 
4541 
4871 
5272 
5672 
6088 
6476 
6888 
7292 
7668 
8055 
G4S1 
8857 
9369 
9724 
0099 
0520 
0947 
1282 
11437 
"1576 
1929 
x 2256 
14292 
4762 




SEQ 0352 
7806 



2128 
2432 
2771 
3104 
3531 
3862 
4096 
4559 
4886 
5298 
5700 
6114 
6502 
6915 

m 

8076 
8478 
8878 

im 

10126 
10547 
10977 
11287 
11447 
11594 
11954 
12264 
14327 
147" " 



86 



2146 
2453 
2796 
3123 
3553 
3877 
4114 
4655 
4912 
5325 
5728 
6140 
6528 
6942 
7344 
7717 
8098 
8505 
8909 
9433 
9778 
10154 
10575 
11006 
11304 
11464 
11597 
11980 
12276 

mis 
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SEQ 0353 



, S*RLO 
JACT1 

APTB 
UPTH 

APTY 
JASTA 
SCATC 
>CMTA 
>DB2D 

DB20 

DIV 
>Et)P 

ERRQ 
>ERHT 
jMULT 
SPOWE 
>P AND 
jRODE 
JRDOC 
5READ 
5R2AZ 
[SAVE 
E SB 2D 
5SB2n 
5SCOP 

SIZE 
5SUPR 
STRAP 
5TYPB 
jTYPD 
5TYPF. 
5TYPO 
540CA 

170 



719# 
1» 



6 98* 
6981 
698« 
6981 

698* 
69fif 



698J 
698} 



864 
930» 

330 
P74 



15683 
16000 
698# 16063 

69B& 15724 



698ff 15918 



698 If 16335 



16119 
16199 



. ABS. 070034 



ERRORS DETECTED: 

CQKDAC.BIN.CQKDAC.LST/CPF/SOL/NL^OCsCQKDAC.SML/CQKDAC.Pll 
RON-TIME: 66 79 6 SECONDS 
RUN-TIME RATIO: 868/151=5.7 
CORE USED: 39K (77 PAGES) 



